Software of the Month Club 1999 November

home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 November / SOTMC_Nov1999-Ultimate.iso / mac / REALbasic ƒ / Examples / Techniques / Examples by Thomas Tempelmann / TT's Application Framework.1 / TT's App Frame.π < prev
Unknown | 1999-04-08 | 28.0 KB | [TgPj/RBv2]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	librempegprobeID	tri-Ace PS2 (tac)	default (weak)
id metadata
key	value
macFileType	`[TgPj]`
macFileCreator	`[RBv2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0b 16 00 00 41 41 41 41 | 41 41 41 41 41 41 41 41 |....AAAA|AAAAAAAA|
|00000010| 41 41 41 41 01 04 3f 3f | 3f 3f 00 00 01 01 01 00 |AAAA..??|??......|
|00000020| 0b 53 74 61 72 74 65 72 | 44 65 6d 6f 80 80 80 01 |.Starter|Demo....|
|00000030| 80 80 80 01 01 00 00 00 | 00 00 00 00 06 69 63 73 |........|.....ics|
|00000040| 23 80 01 01 80 06 60 08 | 10 08 90 08 10 0c b0 33 |#.....`.|.......3|
|00000050| 4c 20 84 22 14 60 86 a2 | 17 99 9f 66 7e 18 78 06 |L .".`..|...f~.x.|
|00000060| e0 01 80 01 80 07 e0 0f | f0 0f f0 0f f0 0f f0 3f |........|.......?|
|00000070| fc 3f fc 3f fc 7f fe ff | ff ff ff 7f fe 1f f8 07 |.?.?....|........|
|00000080| e0 01 80 49 43 4e 23 80 | 04 00 01 80 00 00 06 60 |...ICN#.|.......`|
|00000090| 00 00 18 18 00 00 60 06 | 00 00 48 0a 00 00 42 22 |......`.|..H...B"|
|000000a0| 00 00 40 8a 00 00 40 22 | 00 00 40 8a 00 00 40 22 |..@...@"|..@...@"|
|000000b0| 00 00 40 8a 00 00 60 26 | 00 01 98 99 80 06 06 60 |..@...`&|.......`|
|000000c0| 60 18 01 80 18 12 02 20 | 28 10 88 88 88 10 22 02 |`...... |(.....".|
|000000d0| 28 30 08 80 8c 70 22 02 | 2a 90 08 80 8d b0 22 02 |(0...p".|*.....".|
|000000e0| 2b 98 09 80 99 a6 26 62 | 67 69 98 19 9e 1a 60 06 |+.....&b|gi....`.|
|000000f0| 78 06 80 01 e0 01 a0 07 | 80 00 68 1e 00 00 1a 78 |x.......|..h....x|
|00000100| 00 00 06 e0 00 00 01 80 | 00 00 01 80 00 00 07 e0 |........|........|
|00000110| 00 00 1f f8 00 00 7f fe | 00 00 7f fe 00 00 7f fe |........|........|
|00000120| 00 00 7f fe 00 00 7f fe | 00 00 7f fe 00 00 7f fe |........|........|
|00000130| 00 00 7f fe 00 00 7f fe | 00 01 ff ff 80 07 ff ff |........|........|
|00000140| e0 1f ff ff f8 1f ff ff | f8 1f ff ff f8 1f ff ff |........|........|
|00000150| f8 3f ff ff fc 7f ff ff | fe ff ff ff ff ff ff ff |.?......|........|
|00000160| ff ff ff ff ff ff ff ff | ff 7f ff ff fe 1f ff ff |........|........|
|00000170| f8 07 ff ff e0 01 ff ff | 80 00 7f fe 00 00 1f f8 |........|........|
|00000180| 00 00 07 e0 00 00 01 80 | 00 69 63 73 34 80 02 00 |........|.ics4...|
|00000190| 00 00 0f f0 00 00 00 00 | 00 0f f8 8f f0 00 00 00 |........|........|
|000001a0| 00 f8 88 88 9f 00 00 00 | 00 f8 88 99 9f 00 00 00 |........|........|
|000001b0| 00 f8 88 99 9f 00 00 00 | 00 f8 88 99 9f 00 00 00 |........|........|
|000001c0| ff cc 88 99 11 ff 00 00 | fc cc cc 11 11 1f 00 00 |........|........|
|000001d0| fc c3 73 21 22 2f 00 0f | fc c7 37 12 12 2f f0 fc |..s!"/..|..7../..|
|000001e0| fc c3 73 21 22 2f df f0 | cf f7 3f f2 1f fd df 0f |..s!"/..|..?.....|
|000001f0| f0 cf fc cf fd df f0 00 | 0f f0 cc cd df f0 00 00 |........|........|
|00000200| 00 0f f0 df f0 00 00 00 | 00 00 0f f0 00 00 00 69 |........|.......i|
|00000210| 63 73 38 80 04 00 00 00 | 00 00 00 00 ff ff 00 00 |cs8.....|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 ff ff e1 e1 ff ff |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 ff e3 e1 e1 e1 e1 e5 |........|........|
|00000240| ff 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e5 e5 e5 |........|........|
|00000250| ff 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e5 e5 e5 |........|........|
|00000260| ff 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e5 e5 e5 |........|........|
|00000270| ff 00 00 00 00 00 00 ff | ff 2a 2a e3 e3 e5 e5 0b |........|.**.....|
|00000280| 0b ff ff 00 00 00 00 ff | 2a 2a 2a 2a 2a 0b 0b 0b |........|*****...|
|00000290| 0b 0b ff 00 00 00 00 ff | 54 54 7f 7f 7f 11 11 11 |........|TT......|
|000002a0| 17 17 ff 00 00 00 ff ff | 54 54 7f 7f 7f 11 11 11 |........|TT......|
|000002b0| 17 17 ff ff 00 ff f6 ff | 54 54 7f 7f 7f 11 11 11 |........|TT......|
|000002c0| 17 17 ff f9 ff ff f6 f6 | ff ff 7f 7f ff ff 11 11 |........|........|
|000002d0| ff ff f9 f9 ff 00 ff ff | f6 f6 ff ff f7 f7 ff ff |........|........|
|000002e0| f9 f9 ff ff 00 00 00 00 | ff ff f6 f6 f7 f7 f9 f9 |........|........|
|000002f0| ff ff 00 00 00 00 00 00 | 00 00 ff ff f6 f9 ff ff |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff 00 00 |........|........|
|00000310| 00 00 00 00 00 69 63 6c | 34 80 08 00 00 00 00 00 |.....icl|4.......|
|00000320| 00 00 0f f0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 0f f8 8f f0 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 0f f8 88 88 8f f0 00 00 | 00 00 00 00 00 00 00 0f |........|........|
|00000350| f8 88 88 88 88 8f f0 00 | 00 00 00 00 00 00 00 0f |........|........|
|00000360| 88 08 88 88 88 89 f0 00 | 00 00 00 00 00 00 00 0f |........|........|
|00000370| 88 88 08 88 89 99 f0 00 | 00 00 00 00 00 00 00 0f |........|........|
|00000380| 88 88 88 09 99 99 f0 00 | 00 00 00 00 00 00 00 0f |........|........|
|00000390| 88 88 88 99 99 99 f0 00 | 00 00 00 00 00 00 00 0f |........|........|
|000003a0| 88 88 88 89 99 99 f0 00 | 00 00 00 00 00 00 00 0f |........|........|
|000003b0| 88 88 88 99 99 99 f0 00 | 00 00 00 00 00 00 00 0f |........|........|
|000003c0| 88 88 88 89 99 99 f0 00 | 00 00 00 00 00 00 00 0f |........|........|
|000003d0| 88 88 88 99 99 99 f0 00 | 00 00 00 00 00 00 0f fc |........|........|
|000003e0| c8 88 88 89 99 91 1f f0 | 00 00 00 00 00 0f fc cc |........|........|
|000003f0| cc c8 88 99 91 11 11 1f | f0 00 00 00 0f fc cc cc |........|........|
|00000400| cc cc cc 71 11 11 11 11 | 1f f0 00 00 0f cc 0c cc |...q....|........|
|00000410| cc cc 37 22 01 11 11 11 | 12 f0 00 00 0f cc cc 0c |..7"....|........|
|00000420| cc 73 73 71 21 01 11 12 | 22 f0 00 00 0f cc cc cc |.ssq!...|".......|
|00000430| 07 37 37 22 12 12 02 22 | 22 f0 00 00 ff cc cc cc |.77"..."|".......|
|00000440| 73 73 73 71 21 21 22 22 | 22 ff 00 0f 0f cc cc cc |sssq!!""|".......|
|00000450| c7 37 37 22 12 12 12 22 | 22 fd f0 f0 cf cc cc cc |.77"..."|".......|
|00000460| 73 73 73 71 21 21 22 22 | 22 fc df fc cf cc cc cc |sssq!!""|".......|
|00000470| c7 37 37 22 12 12 12 22 | 22 fc cf fc 0f fc cc cc |.77"..."|".......|
|00000480| 73 73 7f f1 21 21 22 22 | 2f fc df fc cc 0f fc cc |ss..!!""|/.......|
|00000490| c7 3f fd df f2 12 12 2f | fc dd df 0f fc cc 0f fc |.?...../|........|
|000004a0| 7f fd dd dc cf f1 2f fc | dd df f0 00 0f fc cc 0f |....../.|........|
|000004b0| fd dd cc cc cc cf fc dd | df f0 00 00 00 0f fc cc |........|........|
|000004c0| 00 cc cc cc cc cc dd df | f0 00 00 00 00 00 0f fc |........|........|
|000004d0| cc 00 cc cc cc dd df f0 | 00 00 00 00 00 00 00 0f |........|........|
|000004e0| fc cc 00 cc dd df f0 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 0f fc cc dd df f0 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 0f fc df f0 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 0f f0 00 00 00 00 | 00 00 00 69 63 6c 38 80 |........|...icl8.|
|00000520| 10 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|00000550| e1 e1 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff e1 e1 |........|........|
|00000570| e1 e1 e1 e1 ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 ff ff e1 e1 e1 e1 |........|........|
|00000590| e1 e1 e1 e1 e1 e1 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 ff e3 e3 00 e1 e1 |........|........|
|000005b0| e1 e1 e1 e1 e1 e3 e5 ff | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 ff e3 e3 e3 e3 00 |........|........|
|000005d0| e1 e1 e1 e3 e5 e5 e5 ff | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 ff e3 e3 e3 e3 e3 |........|........|
|000005f0| e3 00 e5 e5 e5 e5 e5 ff | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 ff e3 e3 e3 e3 e3 |........|........|
|00000610| e3 e5 e5 e5 e5 e5 e5 ff | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 ff e3 e3 e3 e3 e3 |........|........|
|00000630| e3 e3 e5 e5 e5 e5 e5 ff | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 ff e3 e3 e3 e3 e3 |........|........|
|00000650| e3 e5 e5 e5 e5 e5 e5 ff | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 ff e3 e3 e3 e3 e3 |........|........|
|00000670| e3 e3 e5 e5 e5 e5 e5 ff | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 ff e3 e3 e3 e3 e3 |........|........|
|00000690| e3 e5 e5 e5 e5 e5 e5 ff | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | ff ff 2a 2a e3 e3 e3 e3 |........|..**....|
|000006b0| e3 e3 e5 e5 e5 e5 0b 0b | ff ff 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 ff ff | 2a 2a 2a 2a 2a 2a e3 e3 |........|******..|
|000006d0| e3 e5 e5 e5 0b 0b 0b 0b | 0b 0b ff ff 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 ff ff 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |......**|********|
|000006f0| 2a 54 0b 0b 0b 0b 0b 0b | 0b 0b 0b 0b ff ff 00 00 |*T......|........|
|00000700| 00 00 00 00 ff 54 54 00 | 2a 2a 2a 2a 2a 2a 2a 54 |.....TT.|*******T|
|00000710| 7f 11 11 00 0b 0b 0b 0b | 0b 0b 0b 11 17 ff 00 00 |........|........|
|00000720| 00 00 00 00 ff 54 54 54 | 54 00 2a 2a 2a 54 7f 7f |.....TTT|T.***T..|
|00000730| 7f 7f 11 11 11 00 0b 0b | 0b 11 17 17 17 ff 00 00 |........|........|
|00000740| 00 00 00 00 ff 54 54 54 | 54 54 54 00 7f 7f 7f 7f |.....TTT|TTT.....|
|00000750| 7f 11 11 11 11 11 11 00 | 17 17 17 17 17 ff 00 00 |........|........|
|00000760| 00 00 00 ff ff 54 54 54 | 54 54 54 7f 7f 7f 7f 7f |.....TTT|TTT.....|
|00000770| 7f 7f 11 11 11 11 11 17 | 17 17 17 17 17 ff ff 00 |........|........|
|00000780| 00 00 ff 00 ff 54 54 54 | 54 54 54 54 7f 7f 7f 7f |.....TTT|TTTT....|
|00000790| 7f 11 11 11 11 11 11 11 | 17 17 17 17 17 ff f9 ff |........|........|
|000007a0| 00 ff 00 f7 ff 54 54 54 | 54 54 54 7f 7f 7f 7f 7f |.....TTT|TTT.....|
|000007b0| 7f 7f 11 11 11 11 11 17 | 17 17 17 17 17 ff f7 f9 |........|........|
|000007c0| ff ff f7 f7 ff 54 54 54 | 54 54 54 54 7f 7f 7f 7f |.....TTT|TTTT....|
|000007d0| 7f 11 11 11 11 11 11 11 | 17 17 17 17 17 ff f7 f7 |........|........|
|000007e0| ff ff f7 00 ff ff 54 54 | 54 54 54 7f 7f 7f 7f 7f |......TT|TTT.....|
|000007f0| ff ff 11 11 11 11 11 17 | 17 17 17 17 ff ff f7 f9 |........|........|
|00000800| ff ff f7 f7 f7 00 ff ff | 54 54 54 54 7f 7f ff ff |........|TTTT....|
|00000810| f9 f9 ff ff 11 11 11 11 | 17 17 ff ff f7 f9 f9 f9 |........|........|
|00000820| ff 00 ff ff f7 f7 f7 00 | ff ff 54 7f ff ff f9 f9 |........|..T.....|
|00000830| f9 f9 f7 f6 ff ff 11 17 | ff ff f7 f9 f9 f9 ff ff |........|........|
|00000840| 00 00 00 00 ff ff f7 f7 | f7 00 ff ff f9 f9 f9 f7 |........|........|
|00000850| f6 f6 f6 f6 f6 f6 ff ff | f7 f9 f9 f9 ff ff 00 00 |........|........|
|00000860| 00 00 00 00 00 00 ff ff | f7 f7 f7 00 00 f6 f6 f6 |........|........|
|00000870| f6 f6 f6 f6 f6 f7 f7 f9 | f9 f9 ff ff 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | ff ff f7 f7 f7 00 00 f6 |........|........|
|00000890| f6 f6 f6 f7 f7 f9 f9 f9 | ff ff 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 ff ff f7 f7 f7 00 |........|........|
|000008b0| 00 f7 f7 f9 f9 f9 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff f7 f7 |........|........|
|000008d0| f7 f9 f9 f9 ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|000008f0| f7 f9 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000910| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 01 04 74 65 78 74 04 | 52 2a 63 68 04 54 45 58 |...text.|R*ch.TEX|
|00000930| 54 00 00 01 41 04 56 69 | 65 77 08 41 62 6f 75 74 |T...A.Vi|ew.About|
|00000940| 42 6f 78 04 91 02 94 05 | 12 04 4e 61 6d 65 08 41 |Box.....|..Name.A|
|00000950| 62 6f 75 74 42 6f 78 05 | 46 72 61 6d 65 01 31 0c |boutBox.|Frame.1.|
|00000960| 48 61 73 42 61 63 6b 43 | 6f 6c 6f 72 05 46 61 6c |HasBackC|olor.Fal|
|00000970| 73 65 09 42 61 63 6b 43 | 6f 6c 6f 72 08 31 36 37 |se.BackC|olor.167|
|00000980| 37 37 32 31 35 08 42 61 | 63 6b 64 72 6f 70 01 30 |77215.Ba|ckdrop.0|
|00000990| 05 54 69 74 6c 65 05 41 | 62 6f 75 74 07 56 69 73 |.Title.A|bout.Vis|
|000009a0| 69 62 6c 65 05 46 61 6c | 73 65 08 43 6c 6f 73 65 |ible.Fal|se.Close|
|000009b0| 42 6f 78 05 46 61 6c 73 | 65 08 47 72 6f 77 49 63 |Box.Fals|e.GrowIc|
|000009c0| 6f 6e 05 46 61 6c 73 65 | 08 5a 6f 6f 6d 49 63 6f |on.False|.ZoomIco|
|000009d0| 6e 05 46 61 6c 73 65 0b | 42 61 6c 6c 6f 6f 6e 48 |n.False.|BalloonH|
|000009e0| 65 6c 70 00 09 50 6c 61 | 63 65 6d 65 6e 74 01 30 |elp..Pla|cement.0|
|000009f0| 05 57 69 64 74 68 03 32 | 37 32 06 48 65 69 67 68 |.Width.2|72.Heigh|
|00000a00| 74 03 32 31 33 08 4d 69 | 6e 57 69 64 74 68 02 36 |t.213.Mi|nWidth.6|
|00000a10| 34 09 4d 69 6e 48 65 69 | 67 68 74 02 36 34 08 4d |4.MinHei|ght.64.M|
|00000a20| 61 78 57 69 64 74 68 05 | 33 32 30 30 30 09 4d 61 |axWidth.|32000.Ma|
|00000a30| 78 48 65 69 67 68 74 05 | 33 32 30 30 30 07 00 08 |xHeight.|32000...|
|00000a40| 41 62 6f 75 74 42 6f 78 | ac 01 06 41 70 70 6c 65 |AboutBox|...Apple|
|00000a50| 74 00 00 00 00 07 07 4d | 6f 75 73 65 55 70 05 06 |t......M|ouseUp..|
|00000a60| 05 06 07 27 53 75 62 20 | 4d 6f 75 73 65 55 70 28 |...'Sub |MouseUp(|
|00000a70| 58 20 41 73 20 49 6e 74 | 65 67 65 72 2c 20 59 20 |X As Int|eger, Y |
|00000a80| 41 73 20 49 6e 74 65 67 | 65 72 29 1c 75 72 6c 2e |As Integ|er).url.|
|00000a90| 74 65 78 74 63 6f 6c 6f | 72 20 3d 20 52 47 42 28 |textcolo|r = RGB(|
|00000aa0| 30 2c 30 2c 32 35 35 29 | 92 01 69 66 20 78 3e 75 |0,0,255)|..if x>u|
|00000ab0| 72 6c 2e 6c 65 66 74 20 | 61 6e 64 20 78 3c 75 72 |rl.left |and x<ur|
|00000ac0| 6c 2e 6c 65 66 74 2b 75 | 72 6c 2e 77 69 64 74 68 |l.left+u|rl.width|
|00000ad0| 20 61 6e 64 20 79 3e 75 | 72 6c 2e 74 6f 70 20 61 | and y>u|rl.top a|
|00000ae0| 6e 64 20 79 3c 75 72 6c | 2e 74 6f 70 2b 75 72 6c |nd y<url|.top+url|
|00000af0| 2e 68 65 69 67 68 74 20 | 74 68 65 6e 10 53 68 6f |.height |then.Sho|
|00000b00| 77 55 52 4c 20 75 72 6c | 2e 74 65 78 74 05 63 6c |wURL url|.text.cl|
|00000b10| 6f 73 65 06 65 6e 64 20 | 69 66 07 45 6e 64 20 53 |ose.end |if.End S|
|00000b20| 75 62 09 4d 6f 75 73 65 | 44 72 61 67 05 06 05 06 |ub.Mouse|Drag....|
|00000b30| 07 29 53 75 62 20 4d 6f | 75 73 65 44 72 61 67 28 |.)Sub Mo|useDrag(|
|00000b40| 58 20 41 73 20 49 6e 74 | 65 67 65 72 2c 20 59 20 |X As Int|eger, Y |
|00000b50| 41 73 20 49 6e 74 65 67 | 65 72 29 92 01 69 66 20 |As Integ|er)..if |
|00000b60| 78 3e 75 72 6c 2e 6c 65 | 66 74 20 61 6e 64 20 78 |x>url.le|ft and x|
|00000b70| 3c 75 72 6c 2e 6c 65 66 | 74 2b 75 72 6c 2e 77 69 |<url.lef|t+url.wi|
|00000b80| 64 74 68 20 61 6e 64 20 | 79 3e 75 72 6c 2e 74 6f |dth and |y>url.to|
|00000b90| 70 20 61 6e 64 20 79 3c | 75 72 6c 2e 74 6f 70 2b |p and y<|url.top+|
|00000ba0| 75 72 6c 2e 68 65 69 67 | 68 74 20 74 68 65 6e 1c |url.heig|ht then.|
|00000bb0| 75 72 6c 2e 74 65 78 74 | 63 6f 6c 6f 72 20 3d 20 |url.text|color = |
|00000bc0| 52 47 42 28 32 35 35 2c | 30 2c 30 29 04 65 6c 73 |RGB(255,|0,0).els|
|00000bd0| 65 1c 75 72 6c 2e 74 65 | 78 74 63 6f 6c 6f 72 20 |e.url.te|xtcolor |
|00000be0| 3d 20 52 47 42 28 30 2c | 30 2c 32 35 35 29 06 65 |= RGB(0,|0,255).e|
|00000bf0| 6e 64 20 69 66 07 45 6e | 64 20 53 75 62 09 4d 6f |nd if.En|d Sub.Mo|
|00000c00| 75 73 65 44 6f 77 6e 04 | 06 04 06 06 39 46 75 6e |useDown.|....9Fun|
|00000c10| 63 74 69 6f 6e 20 4d 6f | 75 73 65 44 6f 77 6e 28 |ction Mo|useDown(|
|00000c20| 58 20 41 73 20 49 6e 74 | 65 67 65 72 2c 20 59 20 |X As Int|eger, Y |
|00000c30| 41 73 20 49 6e 74 65 67 | 65 72 29 20 41 73 20 42 |As Integ|er) As B|
|00000c40| 6f 6f 6c 65 61 6e 92 01 | 69 66 20 78 3e 75 72 6c |oolean..|if x>url|
|00000c50| 2e 6c 65 66 74 20 61 6e | 64 20 78 3c 75 72 6c 2e |.left an|d x<url.|
|00000c60| 6c 65 66 74 2b 75 72 6c | 2e 77 69 64 74 68 20 61 |left+url|.width a|
|00000c70| 6e 64 20 79 3e 75 72 6c | 2e 74 6f 70 20 61 6e 64 |nd y>url|.top and|
|00000c80| 20 79 3c 75 72 6c 2e 74 | 6f 70 2b 75 72 6c 2e 68 | y<url.t|op+url.h|
|00000c90| 65 69 67 68 74 20 74 68 | 65 6e 1c 75 72 6c 2e 74 |eight th|en.url.t|
|00000ca0| 65 78 74 63 6f 6c 6f 72 | 20 3d 20 52 47 42 28 32 |extcolor| = RGB(2|
|00000cb0| 35 35 2c 30 2c 30 29 0b | 72 65 74 75 72 6e 20 74 |55,0,0).|return t|
|00000cc0| 72 75 65 06 65 6e 64 20 | 69 66 0c 45 6e 64 20 46 |rue.end |if.End F|
|00000cd0| 75 6e 63 74 69 6f 6e 0b | 43 61 6e 63 65 6c 43 6c |unction.|CancelCl|
|00000ce0| 6f 73 65 01 00 01 00 03 | 21 46 75 6e 63 74 69 6f |ose.....|!Functio|
|00000cf0| 6e 20 43 61 6e 63 65 6c | 43 6c 6f 73 65 28 29 20 |n Cancel|Close() |
|00000d00| 41 73 20 42 6f 6f 6c 65 | 61 6e 00 0c 45 6e 64 20 |As Boole|an..End |
|00000d10| 46 75 6e 63 74 69 6f 6e | 0f 45 6e 61 62 6c 65 4d |Function|.EnableM|
|00000d20| 65 6e 75 49 74 65 6d 73 | 01 00 01 00 03 15 53 75 |enuItems|......Su|
|00000d30| 62 20 45 6e 61 62 6c 65 | 4d 65 6e 75 49 74 65 6d |b Enable|MenuItem|
|00000d40| 73 28 29 00 07 45 6e 64 | 20 53 75 62 05 43 6c 6f |s()..End| Sub.Clo|
|00000d50| 73 65 01 00 01 00 03 0b | 53 75 62 20 43 6c 6f 73 |se......|Sub Clos|
|00000d60| 65 28 29 00 07 45 6e 64 | 20 53 75 62 04 4f 70 65 |e()..End| Sub.Ope|
|00000d70| 6e 01 00 01 00 03 0a 53 | 75 62 20 4f 70 65 6e 28 |n......S|ub Open(|
|00000d80| 29 00 07 45 6e 64 20 53 | 75 62 00 00 08 07 00 00 |)..End S|ub......|
|00000d90| b4 01 0a 50 75 73 68 42 | 75 74 74 6f 6e 00 00 00 |...PushB|utton...|
|00000da0| 00 01 06 41 63 74 69 6f | 6e 01 04 01 04 03 0c 53 |...Actio|n......S|
|00000db0| 75 62 20 41 63 74 69 6f | 6e 28 29 04 48 69 64 65 |ub Actio|n().Hide|
|00000dc0| 07 45 6e 64 20 53 75 62 | 00 00 07 00 00 b4 01 0a |.End Sub|........|
|00000dd0| 53 74 61 74 69 63 54 65 | 78 74 00 00 00 00 01 09 |StaticTe|xt......|
|00000de0| 4d 6f 75 73 65 4d 6f 76 | 65 01 00 01 00 03 29 53 |MouseMov|e.....)S|
|00000df0| 75 62 20 4d 6f 75 73 65 | 4d 6f 76 65 28 58 20 41 |ub Mouse|Move(X A|
|00000e00| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00000e10| 49 6e 74 65 67 65 72 29 | 00 07 45 6e 64 20 53 75 |Integer)|..End Su|
|00000e20| 62 00 00 07 00 00 b4 01 | 0a 53 74 61 74 69 63 54 |b.......|.StaticT|
|00000e30| 65 78 74 00 00 00 00 01 | 09 4d 6f 75 73 65 4d 6f |ext.....|.MouseMo|
|00000e40| 76 65 01 00 01 00 03 29 | 53 75 62 20 4d 6f 75 73 |ve.....)|Sub Mous|
|00000e50| 65 4d 6f 76 65 28 58 20 | 41 73 20 49 6e 74 65 67 |eMove(X |As Integ|
|00000e60| 65 72 2c 20 59 20 41 73 | 20 49 6e 74 65 67 65 72 |er, Y As| Integer|
|00000e70| 29 00 07 45 6e 64 20 53 | 75 62 00 00 07 00 00 b4 |)..End S|ub......|
|00000e80| 01 0a 53 74 61 74 69 63 | 54 65 78 74 00 00 00 00 |..Static|Text....|
|00000e90| 00 00 00 07 00 00 b4 01 | 0a 53 74 61 74 69 63 54 |........|.StaticT|
|00000ea0| 65 78 74 00 00 00 00 00 | 00 00 07 00 00 b4 01 0a |ext.....|........|
|00000eb0| 53 74 61 74 69 63 54 65 | 78 74 00 00 00 00 00 00 |StaticTe|xt......|
|00000ec0| 00 07 00 00 b4 01 0a 53 | 74 61 74 69 63 54 65 78 |.......S|taticTex|
|00000ed0| 74 00 00 00 00 01 09 4d | 6f 75 73 65 4d 6f 76 65 |t......M|ouseMove|
|00000ee0| 01 00 01 00 03 29 53 75 | 62 20 4d 6f 75 73 65 4d |.....)Su|b MouseM|
|00000ef0| 6f 76 65 28 58 20 41 73 | 20 49 6e 74 65 67 65 72 |ove(X As| Integer|
|00000f00| 2c 20 59 20 41 73 20 49 | 6e 74 65 67 65 72 29 00 |, Y As I|nteger).|
|00000f10| 07 45 6e 64 20 53 75 62 | 00 00 07 00 00 b4 01 0a |.End Sub|........|
|00000f20| 53 74 61 74 69 63 54 65 | 78 74 00 00 00 00 01 09 |StaticTe|xt......|
|00000f30| 4d 6f 75 73 65 4d 6f 76 | 65 01 00 01 00 03 29 53 |MouseMov|e.....)S|
|00000f40| 75 62 20 4d 6f 75 73 65 | 4d 6f 76 65 28 58 20 41 |ub Mouse|Move(X A|
|00000f50| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00000f60| 49 6e 74 65 67 65 72 29 | 00 07 45 6e 64 20 53 75 |Integer)|..End Su|
|00000f70| 62 00 00 08 0a 50 75 73 | 68 42 75 74 74 6f 6e 17 |b....Pus|hButton.|
|00000f80| 04 4e 61 6d 65 08 4f 4b | 42 75 74 74 6f 6e 05 49 |.Name.OK|Button.I|
|00000f90| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|00000fa0| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|00000fb0| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00000fc0| 66 74 03 31 30 37 03 54 | 6f 70 03 31 38 30 05 57 |ft.107.T|op.180.W|
|00000fd0| 69 64 74 68 02 36 30 06 | 48 65 69 67 68 74 02 32 |idth.60.|Height.2|
|00000fe0| 30 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 13 44 |0.Balloo|nHelp..D|
|00000ff0| 69 73 61 62 6c 65 64 42 | 61 6c 6c 6f 6f 6e 48 65 |isabledB|alloonHe|
|00001000| 6c 70 00 08 4c 6f 63 6b | 4c 65 66 74 05 46 61 6c |lp..Lock|Left.Fal|
|00001010| 73 65 07 4c 6f 63 6b 54 | 6f 70 05 46 61 6c 73 65 |se.LockT|op.False|
|00001020| 09 4c 6f 63 6b 52 69 67 | 68 74 05 46 61 6c 73 65 |.LockRig|ht.False|
|00001030| 0a 4c 6f 63 6b 42 6f 74 | 74 6f 6d 04 54 72 75 65 |.LockBot|tom.True|
|00001040| 08 54 65 78 74 46 6f 6e | 74 06 53 79 73 74 65 6d |.TextFon|t.System|
|00001050| 08 54 65 78 74 53 69 7a | 65 02 31 32 04 42 6f 6c |.TextSiz|e.12.Bol|
|00001060| 64 05 46 61 6c 73 65 06 | 49 74 61 6c 69 63 05 46 |d.False.|Italic.F|
|00001070| 61 6c 73 65 09 55 6e 64 | 65 72 6c 69 6e 65 05 46 |alse.Und|erline.F|
|00001080| 61 6c 73 65 07 43 61 70 | 74 69 6f 6e 02 4f 4b 07 |alse.Cap|tion.OK.|
|00001090| 44 65 66 61 75 6c 74 04 | 54 72 75 65 06 43 61 6e |Default.|True.Can|
|000010a0| 63 65 6c 04 54 72 75 65 | 07 45 6e 61 62 6c 65 64 |cel.True|.Enabled|
|000010b0| 04 54 72 75 65 00 0a 53 | 74 61 74 69 63 54 65 78 |.True..S|taticTex|
|000010c0| 74 17 04 4e 61 6d 65 03 | 75 72 6c 05 49 6e 64 65 |t..Name.|url.Inde|
|000010d0| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|000010e0| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|000010f0| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 02 |sible.Tr|ue.Left.|
|00001100| 37 33 03 54 6f 70 03 31 | 34 36 05 57 69 64 74 68 |73.Top.1|46.Width|
|00001110| 03 31 33 31 06 48 65 69 | 67 68 74 02 31 36 0b 42 |.131.Hei|ght.16.B|
|00001120| 61 6c 6c 6f 6f 6e 48 65 | 6c 70 00 13 44 69 73 61 |alloonHe|lp..Disa|
|00001130| 62 6c 65 64 42 61 6c 6c | 6f 6f 6e 48 65 6c 70 00 |bledBall|oonHelp.|
|00001140| 08 4c 6f 63 6b 4c 65 66 | 74 05 46 61 6c 73 65 07 |.LockLef|t.False.|
|00001150| 4c 6f 63 6b 54 6f 70 05 | 46 61 6c 73 65 09 4c 6f |LockTop.|False.Lo|
|00001160| 63 6b 52 69 67 68 74 05 | 46 61 6c 73 65 0a 4c 6f |ckRight.|False.Lo|
|00001170| 63 6b 42 6f 74 74 6f 6d | 05 46 61 6c 73 65 08 54 |ckBottom|.False.T|
|00001180| 65 78 74 46 6f 6e 74 06 | 47 65 6e 65 76 61 08 54 |extFont.|Geneva.T|
|00001190| 65 78 74 53 69 7a 65 01 | 39 04 42 6f 6c 64 05 46 |extSize.|9.Bold.F|
|000011a0| 61 6c 73 65 06 49 74 61 | 6c 69 63 05 46 61 6c 73 |alse.Ita|lic.Fals|
|000011b0| 65 09 55 6e 64 65 72 6c | 69 6e 65 04 54 72 75 65 |e.Underl|ine.True|
|000011c0| 04 54 65 78 74 19 68 74 | 74 70 3a 2f 2f 77 77 77 |.Text.ht|tp://www|
|000011d0| 2e 74 65 6d 70 65 6c 2e | 6f 72 67 2f 72 62 2f 09 |.tempel.|org/rb/.|
|000011e0| 54 65 78 74 41 6c 69 67 | 6e 01 31 09 54 65 78 74 |TextAlig|n.1.Text|
|000011f0| 43 6f 6c 6f 72 07 31 35 | 38 31 37 37 33 09 4d 75 |Color.15|81773.Mu|
|00001200| 6c 74 69 4c 69 6e 65 05 | 46 61 6c 73 65 01 0a 53 |ltiLine.|False..S|
|00001210| 74 61 74 69 63 54 65 78 | 74 17 04 4e 61 6d 65 0b |taticTex|t..Name.|
|00001220| 53 74 61 74 69 63 54 65 | 78 74 31 05 49 6e 64 65 |StaticTe|xt1.Inde|
|00001230| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|00001240| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|00001250| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 02 |sible.Tr|ue.Left.|
|00001260| 31 33 03 54 6f 70 02 31 | 33 05 57 69 64 74 68 03 |13.Top.1|3.Width.|
|00001270| 32 34 36 06 48 65 69 67 | 68 74 02 35 30 0b 42 61 |246.Heig|ht.50.Ba|
|00001280| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|00001290| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|000012a0| 4c 6f 63 6b 4c 65 66 74 | 05 46 61 6c 73 65 07 4c |LockLeft|.False.L|
|000012b0| 6f 63 6b 54 6f 70 05 46 | 61 6c 73 65 09 4c 6f 63 |ockTop.F|alse.Loc|
|000012c0| 6b 52 69 67 68 74 05 46 | 61 6c 73 65 0a 4c 6f 63 |kRight.F|alse.Loc|
|000012d0| 6b 42 6f 74 74 6f 6d 05 | 46 61 6c 73 65 08 54 65 |kBottom.|False.Te|
|000012e0| 78 74 46 6f 6e 74 06 53 | 79 73 74 65 6d 08 54 65 |xtFont.S|ystem.Te|
|000012f0| 78 74 53 69 7a 65 02 31 | 32 04 42 6f 6c 64 05 46 |xtSize.1|2.Bold.F|
|00001300| 61 6c 73 65 06 49 74 61 | 6c 69 63 05 46 61 6c 73 |alse.Ita|lic.Fals|
|00001310| 65 09 55 6e 64 65 72 6c | 69 6e 65 05 46 61 6c 73 |e.Underl|ine.Fals|
|00001320| 65 04 54 65 78 74 8e 01 | 54 68 69 73 20 73 61 6d |e.Text..|This sam|
|00001330| 70 6c 65 20 52 42 31 20 | 61 70 70 6c 69 63 61 74 |ple RB1 |applicat|
|00001340| 69 6f 6e 20 63 6f 6e 74 | 61 69 6e 73 20 72 65 75 |ion cont|ains reu|
|00001350| 73 61 62 6c 65 20 63 6c | 61 73 73 65 73 20 66 6f |sable cl|asses fo|
|00001360| 72 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |r the fo|llowing |
|00001370| 74 61 73 6b 73 3a 09 54 | 65 78 74 41 6c 69 67 6e |tasks:.T|extAlign|
|00001380| 01 30 09 54 65 78 74 43 | 6f 6c 6f 72 01 30 09 4d |.0.TextC|olor.0.M|
|00001390| 75 6c 74 69 4c 69 6e 65 | 04 54 72 75 65 02 0a 53 |ultiLine|.True..S|
|000013a0| 74 61 74 69 63 54 65 78 | 74 17 04 4e 61 6d 65 0b |taticTex|t..Name.|
|000013b0| 53 74 61 74 69 63 54 65 | 78 74 32 05 49 6e 64 65 |StaticTe|xt2.Inde|
|000013c0| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|000013d0| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|000013e0| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 02 |sible.Tr|ue.Left.|
|000013f0| 32 31 03 54 6f 70 02 36 | 37 05 57 69 64 74 68 03 |21.Top.6|7.Width.|
|00001400| 32 34 36 06 48 65 69 67 | 68 74 02 31 32 0b 42 61 |246.Heig|ht.12.Ba|
|00001410| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|00001420| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|00001430| 4c 6f 63 6b 4c 65 66 74 | 05 46 61 6c 73 65 07 4c |LockLeft|.False.L|
|00001440| 6f 63 6b 54 6f 70 05 46 | 61 6c 73 65 09 4c 6f 63 |ockTop.F|alse.Loc|
|00001450| 6b 52 69 67 68 74 05 46 | 61 6c 73 65 0a 4c 6f 63 |kRight.F|alse.Loc|
|00001460| 6b 42 6f 74 74 6f 6d 05 | 46 61 6c 73 65 08 54 65 |kBottom.|False.Te|
|00001470| 78 74 46 6f 6e 74 06 47 | 65 6e 65 76 61 08 54 65 |xtFont.G|eneva.Te|
|00001480| 78 74 53 69 7a 65 01 39 | 04 42 6f 6c 64 05 46 61 |xtSize.9|.Bold.Fa|
|00001490| 6c 73 65 06 49 74 61 6c | 69 63 05 46 61 6c 73 65 |lse.Ital|ic.False|
|000014a0| 09 55 6e 64 65 72 6c 69 | 6e 65 05 46 61 6c 73 65 |.Underli|ne.False|
|000014b0| 04 54 65 78 74 20 a5 20 | 4d 61 69 6e 74 61 69 6e |.Text . |Maintain|
|000014c0| 69 6e 67 20 61 20 57 69 | 6e 64 6f 77 20 6c 69 73 |ing a Wi|ndow lis|
|000014d0| 74 20 6d 65 6e 75 09 54 | 65 78 74 41 6c 69 67 6e |t menu.T|extAlign|
|000014e0| 01 30 09 54 65 78 74 43 | 6f 6c 6f 72 01 30 09 4d |.0.TextC|olor.0.M|
|000014f0| 75 6c 74 69 4c 69 6e 65 | 05 46 61 6c 73 65 03 0a |ultiLine|.False..|
|00001500| 53 74 61 74 69 63 54 65 | 78 74 17 04 4e 61 6d 65 |StaticTe|xt..Name|
|00001510| 0b 53 74 61 74 69 63 54 | 65 78 74 33 05 49 6e 64 |.StaticT|ext3.Ind|
|00001520| 65 78 0b 2d 32 31 34 37 | 34 38 33 36 34 38 0d 54 |ex.-2147|483648.T|
|00001530| 61 62 50 61 6e 65 6c 49 | 6e 64 65 78 01 30 07 56 |abPanelI|ndex.0.V|
|00001540| 69 73 69 62 6c 65 04 54 | 72 75 65 04 4c 65 66 74 |isible.T|rue.Left|
|00001550| 02 32 31 03 54 6f 70 03 | 31 30 33 05 57 69 64 74 |.21.Top.|103.Widt|
|00001560| 68 03 32 34 36 06 48 65 | 69 67 68 74 02 31 32 0b |h.246.He|ight.12.|
|00001570| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 13 44 69 73 |BalloonH|elp..Dis|
|00001580| 61 62 6c 65 64 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |abledBal|loonHelp|
|00001590| 00 08 4c 6f 63 6b 4c 65 | 66 74 05 46 61 6c 73 65 |..LockLe|ft.False|
|000015a0| 07 4c 6f 63 6b 54 6f 70 | 05 46 61 6c 73 65 09 4c |.LockTop|.False.L|
|000015b0| 6f 63 6b 52 69 67 68 74 | 05 46 61 6c 73 65 0a 4c |ockRight|.False.L|
|000015c0| 6f 63 6b 42 6f 74 74 6f | 6d 05 46 61 6c 73 65 08 |ockBotto|m.False.|
|000015d0| 54 65 78 74 46 6f 6e 74 | 06 47 65 6e 65 76 61 08 |TextFont|.Geneva.|
|000015e0| 54 65 78 74 53 69 7a 65 | 01 39 04 42 6f 6c 64 05 |TextSize|.9.Bold.|
|000015f0| 46 61 6c 73 65 06 49 74 | 61 6c 69 63 05 46 61 6c |False.It|alic.Fal|
|00001600| 73 65 09 55 6e 64 65 72 | 6c 69 6e 65 05 46 61 6c |se.Under|line.Fal|
|00001610| 73 65 04 54 65 78 74 28 | a5 20 53 68 6f 77 69 6e |se.Text(|. Showin|
|00001620| 67 20 61 6e 20 61 62 6f | 75 74 20 62 6f 78 20 77 |g an abo|ut box w|
|00001630| 69 74 68 20 61 20 55 52 | 4c 20 69 6e 20 69 74 2e |ith a UR|L in it.|
|00001640| 09 54 65 78 74 41 6c 69 | 67 6e 01 30 09 54 65 78 |.TextAli|gn.0.Tex|
|00001650| 74 43 6f 6c 6f 72 01 30 | 09 4d 75 6c 74 69 4c 69 |tColor.0|.MultiLi|
|00001660| 6e 65 05 46 61 6c 73 65 | 04 0a 53 74 61 74 69 63 |ne.False|..Static|
|00001670| 54 65 78 74 17 04 4e 61 | 6d 65 0b 53 74 61 74 69 |Text..Na|me.Stati|
|00001680| 63 54 65 78 74 34 05 49 | 6e 64 65 78 0b 2d 32 31 |cText4.I|ndex.-21|
|00001690| 34 37 34 38 33 36 34 38 | 0d 54 61 62 50 61 6e 65 |47483648|.TabPane|
|000016a0| 6c 49 6e 64 65 78 01 30 | 07 56 69 73 69 62 6c 65 |lIndex.0|.Visible|
|000016b0| 04 54 72 75 65 04 4c 65 | 66 74 02 32 31 03 54 6f |.True.Le|ft.21.To|
|000016c0| 70 02 39 31 05 57 69 64 | 74 68 03 32 34 36 06 48 |p.91.Wid|th.246.H|
|000016d0| 65 69 67 68 74 02 31 32 | 0b 42 61 6c 6c 6f 6f 6e |eight.12|.Balloon|
|000016e0| 48 65 6c 70 00 13 44 69 | 73 61 62 6c 65 64 42 61 |Help..Di|sabledBa|
|000016f0| 6c 6c 6f 6f 6e 48 65 6c | 70 00 08 4c 6f 63 6b 4c |lloonHel|p..LockL|
|00001700| 65 66 74 05 46 61 6c 73 | 65 07 4c 6f 63 6b 54 6f |eft.Fals|e.LockTo|
|00001710| 70 05 46 61 6c 73 65 09 | 4c 6f 63 6b 52 69 67 68 |p.False.|LockRigh|
|00001720| 74 05 46 61 6c 73 65 0a | 4c 6f 63 6b 42 6f 74 74 |t.False.|LockBott|
|00001730| 6f 6d 05 46 61 6c 73 65 | 08 54 65 78 74 46 6f 6e |om.False|.TextFon|
|00001740| 74 06 47 65 6e 65 76 61 | 08 54 65 78 74 53 69 7a |t.Geneva|.TextSiz|
|00001750| 65 01 39 04 42 6f 6c 64 | 05 46 61 6c 73 65 06 49 |e.9.Bold|.False.I|
|00001760| 74 61 6c 69 63 05 46 61 | 6c 73 65 09 55 6e 64 65 |talic.Fa|lse.Unde|
|00001770| 72 6c 69 6e 65 05 46 61 | 6c 73 65 04 54 65 78 74 |rline.Fa|lse.Text|
|00001780| 22 a5 20 43 6c 6f 73 69 | 6e 67 20 6d 75 6c 74 69 |". Closi|ng multi|
|00001790| 70 6c 65 20 77 69 6e 64 | 6f 77 73 20 61 74 20 6f |ple wind|ows at o|
|000017a0| 6e 63 65 09 54 65 78 74 | 41 6c 69 67 6e 01 30 09 |nce.Text|Align.0.|
|000017b0| 54 65 78 74 43 6f 6c 6f | 72 01 30 09 4d 75 6c 74 |TextColo|r.0.Mult|
|000017c0| 69 4c 69 6e 65 05 46 61 | 6c 73 65 05 0a 53 74 61 |iLine.Fa|lse..Sta|
|000017d0| 74 69 63 54 65 78 74 17 | 04 4e 61 6d 65 0b 53 74 |ticText.|.Name.St|
|000017e0| 61 74 69 63 54 65 78 74 | 35 05 49 6e 64 65 78 0b |aticText|5.Index.|
|000017f0| 2d 32 31 34 37 34 38 33 | 36 34 38 0d 54 61 62 50 |-2147483|648.TabP|
|00001800| 61 6e 65 6c 49 6e 64 65 | 78 01 30 07 56 69 73 69 |anelInde|x.0.Visi|
|00001810| 62 6c 65 04 54 72 75 65 | 04 4c 65 66 74 02 32 31 |ble.True|.Left.21|
|00001820| 03 54 6f 70 02 37 39 05 | 57 69 64 74 68 03 32 34 |.Top.79.|Width.24|
|00001830| 36 06 48 65 69 67 68 74 | 02 31 32 0b 42 61 6c 6c |6.Height|.12.Ball|
|00001840| 6f 6f 6e 48 65 6c 70 00 | 13 44 69 73 61 62 6c 65 |oonHelp.|.Disable|
|00001850| 64 42 61 6c 6c 6f 6f 6e | 48 65 6c 70 00 08 4c 6f |dBalloon|Help..Lo|
|00001860| 63 6b 4c 65 66 74 05 46 | 61 6c 73 65 07 4c 6f 63 |ckLeft.F|alse.Loc|
|00001870| 6b 54 6f 70 05 46 61 6c | 73 65 09 4c 6f 63 6b 52 |kTop.Fal|se.LockR|
|00001880| 69 67 68 74 05 46 61 6c | 73 65 0a 4c 6f 63 6b 42 |ight.Fal|se.LockB|
|00001890| 6f 74 74 6f 6d 05 46 61 | 6c 73 65 08 54 65 78 74 |ottom.Fa|lse.Text|
|000018a0| 46 6f 6e 74 06 47 65 6e | 65 76 61 08 54 65 78 74 |Font.Gen|eva.Text|
|000018b0| 53 69 7a 65 01 39 04 42 | 6f 6c 64 05 46 61 6c 73 |Size.9.B|old.Fals|
|000018c0| 65 06 49 74 61 6c 69 63 | 05 46 61 6c 73 65 09 55 |e.Italic|.False.U|
|000018d0| 6e 64 65 72 6c 69 6e 65 | 05 46 61 6c 73 65 04 54 |nderline|.False.T|
|000018e0| 65 78 74 2d a5 20 41 73 | 6b 69 6e 67 20 74 68 65 |ext-. As|king the|
|000018f0| 20 75 73 65 72 20 74 6f | 20 73 61 76 65 20 61 20 | user to| save a |
|00001900| 6d 6f 64 69 66 69 65 64 | 20 64 6f 63 75 6d 65 6e |modified| documen|
|00001910| 74 09 54 65 78 74 41 6c | 69 67 6e 01 30 09 54 65 |t.TextAl|ign.0.Te|
|00001920| 78 74 43 6f 6c 6f 72 01 | 30 09 4d 75 6c 74 69 4c |xtColor.|0.MultiL|
|00001930| 69 6e 65 05 46 61 6c 73 | 65 06 0a 53 74 61 74 69 |ine.Fals|e..Stati|
|00001940| 63 54 65 78 74 17 04 4e | 61 6d 65 0b 53 74 61 74 |cText..N|ame.Stat|
|00001950| 69 63 54 65 78 74 36 05 | 49 6e 64 65 78 0b 2d 32 |icText6.|Index.-2|
|00001960| 31 34 37 34 38 33 36 34 | 38 0d 54 61 62 50 61 6e |14748364|8.TabPan|
|00001970| 65 6c 49 6e 64 65 78 01 | 30 07 56 69 73 69 62 6c |elIndex.|0.Visibl|
|00001980| 65 04 54 72 75 65 04 4c | 65 66 74 02 31 37 03 54 |e.True.L|eft.17.T|
|00001990| 6f 70 03 31 33 31 05 57 | 69 64 74 68 03 32 33 34 |op.131.W|idth.234|
|000019a0| 06 48 65 69 67 68 74 02 | 31 36 0b 42 61 6c 6c 6f |.Height.|16.Ballo|
|000019b0| 6f 6e 48 65 6c 70 00 13 | 44 69 73 61 62 6c 65 64 |onHelp..|Disabled|
|000019c0| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 08 4c 6f 63 |BalloonH|elp..Loc|
|000019d0| 6b 4c 65 66 74 05 46 61 | 6c 73 65 07 4c 6f 63 6b |kLeft.Fa|lse.Lock|
|000019e0| 54 6f 70 05 46 61 6c 73 | 65 09 4c 6f 63 6b 52 69 |Top.Fals|e.LockRi|
|000019f0| 67 68 74 05 46 61 6c 73 | 65 0a 4c 6f 63 6b 42 6f |ght.Fals|e.LockBo|
|00001a00| 74 74 6f 6d 05 46 61 6c | 73 65 08 54 65 78 74 46 |ttom.Fal|se.TextF|
|00001a10| 6f 6e 74 06 53 79 73 74 | 65 6d 08 54 65 78 74 53 |ont.Syst|em.TextS|
|00001a20| 69 7a 65 02 31 32 04 42 | 6f 6c 64 05 46 61 6c 73 |ize.12.B|old.Fals|
|00001a30| 65 06 49 74 61 6c 69 63 | 05 46 61 6c 73 65 09 55 |e.Italic|.False.U|
|00001a40| 6e 64 65 72 6c 69 6e 65 | 05 46 61 6c 73 65 04 54 |nderline|.False.T|
|00001a50| 65 78 74 22 4d 6f 72 65 | 20 52 42 20 73 61 6d 70 |ext"More| RB samp|
|00001a60| 6c 65 73 20 63 61 6e 20 | 62 65 20 66 6f 75 6e 64 |les can |be found|
|00001a70| 20 68 65 72 65 3a 09 54 | 65 78 74 41 6c 69 67 6e | here:.T|extAlign|
|00001a80| 01 30 09 54 65 78 74 43 | 6f 6c 6f 72 01 30 09 4d |.0.TextC|olor.0.M|
|00001a90| 75 6c 74 69 4c 69 6e 65 | 05 46 61 6c 73 65 07 00 |ultiLine|.False..|
|00001aa0| 02 41 04 4d 65 6e 75 04 | 4d 65 6e 75 05 b2 01 8d |.A.Menu.|Menu....|
|00001ab0| 05 9e 06 95 08 05 01 00 | 00 80 80 80 80 10 00 00 |........|........|
|00001ac0| 00 00 00 07 00 00 88 01 | 08 4d 65 6e 75 49 74 65 |........|.MenuIte|
|00001ad0| 6d 00 00 00 00 00 00 00 | 02 00 08 41 62 6f 75 74 |m.......|...About|
|00001ae0| 2e 2e 2e 0a 41 70 70 6c | 65 41 62 6f 75 74 80 80 |....Appl|eAbout..|
|00001af0| 80 80 10 00 00 00 00 00 | 07 00 00 88 01 08 4d 65 |........|......Me|
|00001b00| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 00 00 02 00 |nuItem..|........|
|00001b10| 00 80 80 80 80 10 00 00 | 00 00 00 07 00 00 88 01 |........|........|
|00001b20| 08 4d 65 6e 75 49 74 65 | 6d 00 00 00 00 00 00 00 |.MenuIte|m.......|
|00001b30| 00 00 04 46 69 6c 65 00 | 80 80 80 80 10 00 00 00 |...File.|........|
|00001b40| 00 00 07 00 00 88 01 08 | 4d 65 6e 75 49 74 65 6d |........|MenuItem|
|00001b50| 00 00 00 00 00 00 00 05 | 00 03 4e 65 77 07 46 69 |........|..New.Fi|
|00001b60| 6c 65 4e 65 77 80 80 80 | 80 10 01 4e 00 00 00 00 |leNew...|...N....|
|00001b70| 07 00 00 88 01 08 4d 65 | 6e 75 49 74 65 6d 00 00 |......Me|nuItem..|
|00001b80| 00 00 00 00 00 00 00 05 | 43 6c 6f 73 65 09 46 69 |........|Close.Fi|
|00001b90| 6c 65 43 6c 6f 73 65 80 | 80 80 80 10 01 57 00 00 |leClose.|.....W..|
|00001ba0| 00 00 07 00 00 88 01 08 | 4d 65 6e 75 49 74 65 6d |........|MenuItem|
|00001bb0| 00 00 00 00 00 00 00 00 | 00 01 2d 00 80 80 80 80 |........|..-.....|
|00001bc0| 10 00 00 00 00 00 07 00 | 00 88 01 08 4d 65 6e 75 |........|....Menu|
|00001bd0| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 04 51 75 |Item....|......Qu|
|00001be0| 69 74 08 46 69 6c 65 51 | 75 69 74 80 80 80 80 10 |it.FileQ|uit.....|
|00001bf0| 01 51 00 00 00 00 07 00 | 00 88 01 0c 51 75 69 74 |.Q......|....Quit|
|00001c00| 4d 65 6e 75 49 74 65 6d | 00 00 00 00 00 00 00 00 |MenuItem|........|
|00001c10| 02 00 00 80 80 80 80 10 | 00 00 00 00 00 07 00 00 |........|........|
|00001c20| 88 01 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |...MenuI|tem.....|
|00001c30| 00 00 00 00 04 45 64 69 | 74 00 80 80 80 80 10 00 |.....Edi|t.......|
|00001c40| 00 00 00 00 07 00 00 88 | 01 08 4d 65 6e 75 49 74 |........|..MenuIt|
|00001c50| 65 6d 00 00 00 00 00 00 | 00 07 00 04 55 6e 64 6f |em......|....Undo|
|00001c60| 08 45 64 69 74 55 6e 64 | 6f 80 80 80 80 10 01 5a |.EditUnd|o......Z|
|00001c70| 00 00 00 00 07 00 00 88 | 01 08 4d 65 6e 75 49 74 |........|..MenuIt|
|00001c80| 65 6d 00 00 00 00 00 00 | 00 00 00 01 2d 00 80 80 |em......|....-...|
|00001c90| 80 80 10 00 00 00 00 00 | 07 00 00 88 01 08 4d 65 |........|......Me|
|00001ca0| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 00 00 00 03 |nuItem..|........|
|00001cb0| 43 75 74 07 45 64 69 74 | 43 75 74 80 80 80 80 10 |Cut.Edit|Cut.....|
|00001cc0| 01 58 00 00 00 00 07 00 | 00 88 01 08 4d 65 6e 75 |.X......|....Menu|
|00001cd0| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 04 43 6f |Item....|......Co|
|00001ce0| 70 79 08 45 64 69 74 43 | 6f 70 79 80 80 80 80 10 |py.EditC|opy.....|
|00001cf0| 01 43 00 00 00 00 07 00 | 00 88 01 08 4d 65 6e 75 |.C......|....Menu|
|00001d00| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 05 50 61 |Item....|......Pa|
|00001d10| 73 74 65 09 45 64 69 74 | 50 61 73 74 65 80 80 80 |ste.Edit|Paste...|
|00001d20| 80 10 01 56 00 00 00 00 | 07 00 00 88 01 08 4d 65 |...V....|......Me|
|00001d30| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 00 00 00 05 |nuItem..|........|
|00001d40| 43 6c 65 61 72 09 45 64 | 69 74 43 6c 65 61 72 80 |Clear.Ed|itClear.|
|00001d50| 80 80 80 10 00 00 00 00 | 00 07 00 00 88 01 08 4d |........|.......M|
|00001d60| 65 6e 75 49 74 65 6d 00 | 00 00 00 00 00 00 00 02 |enuItem.|........|
|00001d70| 00 00 80 80 80 80 10 00 | 00 00 00 00 07 00 00 88 |........|........|
|00001d80| 01 08 4d 65 6e 75 49 74 | 65 6d 00 00 00 00 00 00 |..MenuIt|em......|
|00001d90| 00 00 00 06 57 69 6e 64 | 6f 77 0a 57 69 6e 64 6f |....Wind|ow.Windo|
|00001da0| 77 4d 65 6e 75 80 80 80 | 80 10 00 00 00 00 00 07 |wMenu...|........|
|00001db0| 00 00 88 01 08 4d 65 6e | 75 49 74 65 6d 00 00 00 |.....Men|uItem...|
|00001dc0| 00 00 00 00 03 00 09 48 | 69 64 65 20 d2 5e 30 d3 |.......H|ide .^0.|
|00001dd0| 0d 57 69 6e 64 6f 77 48 | 69 64 65 43 6d 64 80 80 |.WindowH|ideCmd..|
|00001de0| 80 80 10 00 00 00 00 00 | 07 00 00 9c 01 12 48 69 |........|......Hi|
|00001df0| 64 65 57 69 6e 64 6f 77 | 4d 65 6e 75 49 74 65 6d |deWindow|MenuItem|
|00001e00| 00 00 00 00 00 00 00 00 | 00 01 2d 0e 54 68 65 44 |........|..-.TheD|
|00001e10| 79 6e 61 6d 69 63 4d 65 | 6e 75 00 00 00 00 00 00 |ynamicMe|nu......|
|00001e20| 07 00 00 94 01 12 57 69 | 6e 64 6f 77 4c 69 73 74 |......Wi|ndowList|
|00001e30| 4d 65 6e 75 49 74 65 6d | 00 00 00 00 00 00 00 00 |MenuItem|........|
|00001e40| 02 00 00 80 80 80 80 10 | 00 00 00 00 00 07 00 00 |........|........|
|00001e50| 88 01 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |...MenuI|tem.....|
|00001e60| 00 00 00 02 00 00 80 80 | 80 80 10 00 00 00 00 00 |........|........|
|00001e70| 07 00 00 88 01 08 4d 65 | 6e 75 49 74 65 6d 00 00 |......Me|nuItem..|
|00001e80| 00 00 00 00 00 00 03 41 | 05 43 6c 61 73 73 03 41 |.......A|.Class.A|
|00001e90| 70 70 b6 02 97 01 a0 0b | b8 09 07 00 03 41 70 70 |pp......|.....App|
|00001ea0| 28 0b 41 70 70 6c 69 63 | 61 74 69 6f 6e 00 03 11 |(.Applic|ation...|
|00001eb0| 57 64 77 4e 75 6d 20 61 | 73 20 49 6e 74 65 67 65 |WdwNum a|s Intege|
|00001ec0| 72 00 22 54 68 65 57 69 | 6e 64 6f 77 4d 65 6e 75 |r."TheWi|ndowMenu|
|00001ed0| 20 61 73 20 57 69 6e 64 | 6f 77 4c 69 73 74 4d 65 | as Wind|owListMe|
|00001ee0| 6e 75 4d 67 72 00 25 74 | 68 65 4d 65 6e 75 4c 69 |nuMgr.%t|heMenuLi|
|00001ef0| 73 74 46 6c 6f 61 74 65 | 72 20 61 73 20 4d 65 6e |stFloate|r as Men|
|00001f00| 75 4c 69 73 74 46 6c 6f | 61 74 65 72 00 00 00 05 |uListFlo|ater....|
|00001f10| 0c 4f 70 65 6e 44 6f 63 | 75 6d 65 6e 74 01 00 01 |.OpenDoc|ument...|
|00001f20| 00 03 24 53 75 62 20 4f | 70 65 6e 44 6f 63 75 6d |..$Sub O|penDocum|
|00001f30| 65 6e 74 28 69 74 65 6d | 20 41 73 20 46 6f 6c 64 |ent(item| As Fold|
|00001f40| 65 72 49 74 65 6d 29 00 | 07 45 6e 64 20 53 75 62 |erItem).|.End Sub|
|00001f50| 05 43 6c 6f 73 65 01 00 | 01 00 03 0b 53 75 62 20 |.Close..|....Sub |
|00001f60| 43 6c 6f 73 65 28 29 00 | 07 45 6e 64 20 53 75 62 |Close().|.End Sub|
|00001f70| 0b 4e 65 77 44 6f 63 75 | 6d 65 6e 74 01 00 01 00 |.NewDocu|ment....|
|00001f80| 03 11 53 75 62 20 4e 65 | 77 44 6f 63 75 6d 65 6e |..Sub Ne|wDocumen|
|00001f90| 74 28 29 00 07 45 6e 64 | 20 53 75 62 0f 45 6e 61 |t()..End| Sub.Ena|
|00001fa0| 62 6c 65 4d 65 6e 75 49 | 74 65 6d 73 03 18 03 18 |bleMenuI|tems....|
|00001fb0| 05 15 53 75 62 20 45 6e | 61 62 6c 65 4d 65 6e 75 |..Sub En|ableMenu|
|00001fc0| 49 74 65 6d 73 28 29 19 | 41 70 70 6c 65 41 62 6f |Items().|AppleAbo|
|00001fd0| 75 74 2e 65 6e 61 62 6c | 65 64 20 3d 20 74 72 75 |ut.enabl|ed = tru|
|00001fe0| 65 16 46 69 6c 65 4e 65 | 77 2e 65 6e 61 62 6c 65 |e.FileNe|w.enable|
|00001ff0| 64 20 3d 20 74 72 75 65 | 28 46 69 6c 65 43 6c 6f |d = true|(FileClo|
|00002000| 73 65 2e 65 6e 61 62 6c | 65 64 20 3d 20 46 72 6f |se.enabl|ed = Fro|
|00002010| 6e 74 57 69 6e 64 6f 77 | 28 29 20 3c 3e 20 6e 69 |ntWindow|() <> ni|
|00002020| 6c 07 45 6e 64 20 53 75 | 62 04 4f 70 65 6e 05 00 |l.End Su|b.Open..|
|00002030| 05 00 0a 0a 53 75 62 20 | 4f 70 65 6e 28 29 0a 57 |....Sub |Open().W|
|00002040| 64 77 4e 75 6d 20 3d 20 | 30 00 25 54 68 65 57 69 |dwNum = |0.%TheWi|
|00002050| 6e 64 6f 77 4d 65 6e 75 | 20 3d 20 6e 65 77 20 57 |ndowMenu| = new W|
|00002060| 69 6e 64 6f 77 4c 69 73 | 74 4d 65 6e 75 4d 67 72 |indowLis|tMenuMgr|
|00002070| 25 54 68 65 57 69 6e 64 | 6f 77 4d 65 6e 75 2e 49 |%TheWind|owMenu.I|
|00002080| 6e 69 74 28 74 72 75 65 | 2c 20 66 61 6c 73 65 2c |nit(true|, false,|
|00002090| 20 74 72 75 65 29 00 14 | 27 69 66 20 54 61 72 67 | true)..|'if Targ|
|000020a0| 65 74 4d 61 63 4f 53 20 | 74 68 65 6e 28 74 68 65 |etMacOS |then(the|
|000020b0| 4d 65 6e 75 4c 69 73 74 | 46 6c 6f 61 74 65 72 20 |MenuList|Floater |
|000020c0| 3d 20 6e 65 77 20 4d 65 | 6e 75 4c 69 73 74 46 6c |= new Me|nuListFl|
|000020d0| 6f 61 74 65 72 04 27 65 | 6e 64 07 45 6e 64 20 53 |oater.'e|nd.End S|
|000020e0| 75 62 03 07 46 69 6c 65 | 4e 65 77 05 11 05 11 09 |ub..File|New.....|
|000020f0| 1a 46 75 6e 63 74 69 6f | 6e 20 41 63 74 69 6f 6e |.Functio|n Action|
|00002100| 20 41 73 20 42 6f 6f 6c | 65 61 6e 0f 44 69 6d 20 | As Bool|ean.Dim |
|00002110| 77 20 61 73 20 57 69 6e | 64 6f 77 12 77 20 3d 20 |w as Win|dow.w = |
|00002120| 6e 65 77 20 54 65 73 74 | 57 69 6e 64 6f 77 84 02 |new Test|Window..|
|00002130| 77 2e 43 6c 6f 73 65 42 | 6f 78 20 3d 20 74 72 75 |w.CloseB|ox = tru|
|00002140| 65 20 2f 2f 20 77 65 20 | 6d 75 73 74 20 73 65 74 |e // we |must set|
|00002150| 20 74 68 69 73 20 68 65 | 72 65 20 62 65 63 61 75 | this he|re becau|
|00002160| 73 65 20 52 42 20 31 2e | 31 2e 31 20 68 61 73 20 |se RB 1.|1.1 has |
|00002170| 61 20 62 75 67 20 28 69 | 74 20 6c 65 61 76 65 73 |a bug (i|t leaves|
|00002180| 20 69 74 20 66 61 6c 73 | 65 20 65 76 65 6e 20 69 | it fals|e even i|
|00002190| 66 20 74 68 65 20 77 69 | 6e 64 6f 77 20 68 61 73 |f the wi|ndow has|
|000021a0| 20 61 20 63 6c 6f 73 65 | 20 63 6f 6e 74 72 6f 6c | a close| control|
|000021b0| 62 6f 78 29 13 57 64 77 | 4e 75 6d 20 3d 20 57 64 |box).Wdw|Num = Wd|
|000021c0| 77 4e 75 6d 20 2b 20 31 | 16 77 2e 54 69 74 6c 65 |wNum + 1|.w.Title|
|000021d0| 20 3d 20 53 74 72 20 28 | 57 64 77 4e 75 6d 29 1d | = Str (|WdwNum).|
|000021e0| 54 68 65 57 69 6e 64 6f | 77 4d 65 6e 75 2e 41 64 |TheWindo|wMenu.Ad|
|000021f0| 64 28 77 2c 20 77 2e 74 | 69 74 6c 65 29 06 77 2e |d(w, w.t|itle).w.|
|00002200| 53 68 6f 77 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |Show.End| Functio|
|00002210| 6e 09 46 69 6c 65 43 6c | 6f 73 65 03 00 03 11 0b |n.FileCl|ose.....|
|00002220| 1a 46 75 6e 63 74 69 6f | 6e 20 41 63 74 69 6f 6e |.Functio|n Action|
|00002230| 20 41 73 20 42 6f 6f 6c | 65 61 6e 17 44 69 6d 20 | As Bool|ean.Dim |
|00002240| 61 63 74 69 76 65 57 64 | 77 20 61 73 20 57 69 6e |activeWd|w as Win|
|00002250| 64 6f 77 17 69 66 20 4f | 70 74 69 6f 6e 4b 65 79 |dow.if O|ptionKey|
|00002260| 49 73 44 6f 77 6e 20 74 | 68 65 6e 11 43 6c 6f 73 |IsDown t|hen.Clos|
|00002270| 65 41 6c 6c 57 69 6e 64 | 6f 77 73 28 29 04 65 6c |eAllWind|ows().el|
|00002280| 73 65 19 61 63 74 69 76 | 65 57 64 77 20 3d 20 46 |se.activ|eWdw = F|
|00002290| 72 6f 6e 74 57 69 6e 64 | 6f 77 28 29 18 69 66 20 |rontWind|ow().if |
|000022a0| 61 63 74 69 76 65 57 64 | 77 20 3c 3e 20 6e 69 6c |activeWd|w <> nil|
|000022b0| 20 74 68 65 6e 11 61 63 | 74 69 76 65 57 64 77 2e | then.ac|tiveWdw.|
|000022c0| 43 6c 6f 73 65 28 29 03 | 65 6e 64 03 65 6e 64 0c |Close().|end.end.|
|000022d0| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 0a 41 70 70 |End Func|tion.App|
|000022e0| 6c 65 41 62 6f 75 74 01 | 00 02 00 05 1a 46 75 6e |leAbout.|.....Fun|
|000022f0| 63 74 69 6f 6e 20 41 63 | 74 69 6f 6e 20 41 73 20 |ction Ac|tion As |
|00002300| 42 6f 6f 6c 65 61 6e 17 | 41 62 6f 75 74 42 6f 78 |Boolean.|AboutBox|
|00002310| 2e 56 69 73 69 62 6c 65 | 20 3d 20 74 72 75 65 12 |.Visible| = true.|
|00002320| 41 62 6f 75 74 42 6f 78 | 2e 53 68 6f 77 4d 6f 64 |AboutBox|.ShowMod|
|00002330| 61 6c 0e 41 62 6f 75 74 | 42 6f 78 2e 43 6c 6f 73 |al.About|Box.Clos|
|00002340| 65 0c 45 6e 64 20 46 75 | 6e 63 74 69 6f 6e 00 00 |e.End Fu|nction..|
|00002350| 09 12 05 43 6c 61 73 73 | 12 48 69 64 65 57 69 6e |...Class|.HideWin|
|00002360| 64 6f 77 4d 65 6e 75 49 | 74 65 6d ae 02 85 05 a4 |dowMenuI|tem.....|
|00002370| 0c 8a 0b 07 00 12 48 69 | 64 65 57 69 6e 64 6f 77 |......Hi|deWindow|
|00002380| 4d 65 6e 75 49 74 65 6d | 9c 01 08 4d 65 6e 75 49 |MenuItem|...MenuI|
|00002390| 74 65 6d 00 05 11 69 6e | 69 74 65 64 20 61 73 20 |tem...in|ited as |
|000023a0| 42 6f 6f 6c 65 61 6e 01 | 12 6c 65 66 74 54 65 78 |Boolean.|.leftTex|
|000023b0| 74 20 61 73 20 53 74 72 | 69 6e 67 01 15 72 65 70 |t as Str|ing..rep|
|000023c0| 6c 61 63 65 4f 66 73 20 | 61 73 20 49 6e 74 65 67 |laceOfs |as Integ|
|000023d0| 65 72 01 13 72 69 67 68 | 74 54 65 78 74 20 61 73 |er..righ|tText as|
|000023e0| 20 53 74 72 69 6e 67 00 | 16 74 68 65 57 69 6e 54 | String.|.theWinT|
|000023f0| 6f 48 69 64 65 20 61 73 | 20 57 69 6e 64 6f 77 01 |oHide as| Window.|
|00002400| 00 00 02 0a 45 6e 61 62 | 6c 65 4d 65 6e 75 0f 0f |....Enab|leMenu..|
|00002410| 0f 0f 1a 10 53 75 62 20 | 45 6e 61 62 6c 65 4d 65 |....Sub |EnableMe|
|00002420| 6e 75 28 29 26 44 69 6d | 20 73 20 61 73 20 53 74 |nu()&Dim| s as St|
|00002430| 72 69 6e 67 2c 20 67 6f | 74 41 57 69 6e 64 6f 77 |ring, go|tAWindow|
|00002440| 20 61 73 20 42 6f 6f 6c | 65 61 6e 00 12 74 68 65 | as Bool|ean..the|
|00002450| 57 69 6e 54 6f 48 69 64 | 65 20 3d 20 6e 69 6c 00 |WinToHid|e = nil.|
|00002460| 12 69 66 20 6e 6f 74 20 | 69 6e 69 74 65 64 20 74 |.if not |inited t|
|00002470| 68 65 6e 0d 69 6e 69 74 | 65 64 20 3d 20 74 72 75 |hen.init|ed = tru|
|00002480| 65 1e 72 65 70 6c 61 63 | 65 4f 66 73 20 3d 20 49 |e.replac|eOfs = I|
|00002490| 6e 53 74 72 28 54 65 78 | 74 2c 20 22 5e 30 22 29 |nStr(Tex|t, "^0")|
|000024a0| 16 69 66 20 72 65 70 6c | 61 63 65 4f 66 73 20 3e |.if repl|aceOfs >|
|000024b0| 20 30 20 74 68 65 6e 22 | 6c 65 66 74 54 65 78 74 | 0 then"|leftText|
|000024c0| 20 3d 20 4c 65 66 74 28 | 54 65 78 74 2c 72 65 70 | = Left(|Text,rep|
|000024d0| 6c 61 63 65 4f 66 73 2d | 31 29 2e 72 69 67 68 74 |laceOfs-|1).right|
|000024e0| 54 65 78 74 20 3d 20 52 | 69 67 68 74 28 54 65 78 |Text = R|ight(Tex|
|000024f0| 74 2c 4c 65 6e 28 54 65 | 78 74 29 2d 72 65 70 6c |t,Len(Te|xt)-repl|
|00002500| 61 63 65 4f 66 73 2d 31 | 29 03 65 6e 64 03 65 6e |aceOfs-1|).end.en|
|00002510| 64 00 16 69 66 20 72 65 | 70 6c 61 63 65 4f 66 73 |d..if re|placeOfs|
|00002520| 20 3e 20 30 20 74 68 65 | 6e 1c 74 68 65 57 69 6e | > 0 the|n.theWin|
|00002530| 54 6f 48 69 64 65 20 3d | 20 46 72 6f 6e 74 57 69 |ToHide =| FrontWi|
|00002540| 6e 64 6f 77 28 29 1b 69 | 66 20 74 68 65 57 69 6e |ndow().i|f theWin|
|00002550| 54 6f 48 69 64 65 20 3c | 3e 20 6e 69 6c 20 74 68 |ToHide <|> nil th|
|00002560| 65 6e 16 73 20 3d 20 74 | 68 65 57 69 6e 54 6f 48 |en.s = t|heWinToH|
|00002570| 69 64 65 2e 74 69 74 6c | 65 11 67 6f 74 41 57 69 |ide.titl|e.gotAWi|
|00002580| 6e 64 6f 77 20 3d 20 74 | 72 75 65 03 65 6e 64 03 |ndow = t|rue.end.|
|00002590| 65 6e 64 00 1f 54 65 78 | 74 20 3d 20 6c 65 66 74 |end..Tex|t = left|
|000025a0| 54 65 78 74 20 2b 20 73 | 20 2b 20 72 69 67 68 74 |Text + s| + right|
|000025b0| 54 65 78 74 00 14 45 6e | 61 62 6c 65 64 20 3d 20 |Text..En|abled = |
|000025c0| 67 6f 74 41 57 69 6e 64 | 6f 77 07 45 6e 64 20 53 |gotAWind|ow.End S|
|000025d0| 75 62 06 41 63 74 69 6f | 6e 01 1b 01 1b 05 1c 46 |ub.Actio|n......F|
|000025e0| 75 6e 63 74 69 6f 6e 20 | 41 63 74 69 6f 6e 28 29 |unction |Action()|
|000025f0| 20 41 73 20 42 6f 6f 6c | 65 61 6e 1b 69 66 20 74 | As Bool|ean.if t|
|00002600| 68 65 57 69 6e 54 6f 48 | 69 64 65 20 3c 3e 20 6e |heWinToH|ide <> n|
|00002610| 69 6c 20 74 68 65 6e 13 | 74 68 65 57 69 6e 54 6f |il then.|theWinTo|
|00002620| 48 69 64 65 2e 48 69 64 | 65 28 29 03 65 6e 64 0c |Hide.Hid|e().end.|
|00002630| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 00 00 00 0a |End Func|tion....|
|00002640| 12 05 43 6c 61 73 73 11 | 57 69 6e 64 6f 77 4c 69 |..Class.|WindowLi|
|00002650| 73 74 4d 65 6e 75 4d 67 | 72 2a bd 03 89 0c 8d 0b |stMenuMg|r*......|
|00002660| 07 00 11 57 69 6e 64 6f | 77 4c 69 73 74 4d 65 6e |...Windo|wListMen|
|00002670| 75 4d 67 72 21 00 00 03 | 19 61 64 64 43 6f 6d 6d |uMgr!...|.addComm|
|00002680| 61 6e 64 4b 65 79 73 20 | 61 73 20 42 6f 6f 6c 65 |andKeys |as Boole|
|00002690| 61 6e 00 1a 6d 65 6e 75 | 20 61 73 20 44 79 6e 61 |an..menu| as Dyna|
|000026a0| 6d 69 63 4d 65 6e 75 49 | 74 65 6d 4d 67 72 01 1b |micMenuI|temMgr..|
|000026b0| 63 6d 64 4b 65 79 73 5a | 65 72 6f 42 61 73 65 64 |cmdKeysZ|eroBased|
|000026c0| 20 61 73 20 42 6f 6f 6c | 65 61 6e 00 0a 08 70 5f | as Bool|ean...p_|
|000026d0| 61 64 64 57 64 77 1c 77 | 20 61 73 20 57 69 6e 64 |addWdw.w| as Wind|
|000026e0| 6f 77 2c 20 74 69 74 6c | 65 20 61 73 20 53 74 72 |ow, titl|e as Str|
|000026f0| 69 6e 67 00 01 05 09 05 | 0e 08 2a 53 75 62 20 70 |ing.....|..*Sub p|
|00002700| 5f 61 64 64 57 64 77 28 | 77 20 61 73 20 57 69 6e |_addWdw(|w as Win|
|00002710| 64 6f 77 2c 20 74 69 74 | 6c 65 20 61 73 20 53 74 |dow, tit|le as St|
|00002720| 72 69 6e 67 29 1b 44 69 | 6d 20 6d 20 61 73 20 57 |ring).Di|m m as W|
|00002730| 69 6e 64 6f 77 4c 69 73 | 74 4d 65 6e 75 49 74 65 |indowLis|tMenuIte|
|00002740| 6d 12 6d 65 6e 75 2e 41 | 64 64 28 77 2c 20 74 69 |m.menu.A|dd(w, ti|
|00002750| 74 6c 65 29 16 69 66 20 | 61 64 64 43 6f 6d 6d 61 |tle).if |addComma|
|00002760| 6e 64 4b 65 79 73 20 74 | 68 65 6e 10 6d 20 3d 20 |ndKeys t|hen.m = |
|00002770| 70 5f 66 69 6e 64 57 64 | 77 28 77 29 36 6d 2e 43 |p_findWd|w(w)6m.C|
|00002780| 6f 6d 6d 61 6e 64 4b 65 | 79 20 3d 20 63 6f 6d 6d |ommandKe|y = comm|
|00002790| 61 6e 64 4b 65 79 53 74 | 72 28 6d 2e 69 6e 64 65 |andKeySt|r(m.inde|
|000027a0| 78 20 2d 20 6d 2e 74 68 | 65 4d 65 6e 75 2e 42 61 |x - m.th|eMenu.Ba|
|000027b0| 73 65 29 03 65 6e 64 07 | 45 6e 64 20 53 75 62 09 |se).end.|End Sub.|
|000027c0| 70 5f 66 69 6e 64 57 64 | 77 0b 77 20 61 73 20 57 |p_findWd|w.w as W|
|000027d0| 69 6e 64 6f 77 12 57 69 | 6e 64 6f 77 4c 69 73 74 |indow.Wi|ndowList|
|000027e0| 4d 65 6e 75 49 74 65 6d | 01 01 23 01 23 03 35 46 |MenuItem|..#.#.5F|
|000027f0| 75 6e 63 74 69 6f 6e 20 | 70 5f 66 69 6e 64 57 64 |unction |p_findWd|
|00002800| 77 28 77 20 61 73 20 57 | 69 6e 64 6f 77 29 20 41 |w(w as W|indow) A|
|00002810| 73 20 57 69 6e 64 6f 77 | 4c 69 73 74 4d 65 6e 75 |s Window|ListMenu|
|00002820| 49 74 65 6d 27 72 65 74 | 75 72 6e 20 57 69 6e 64 |Item'ret|urn Wind|
|00002830| 6f 77 4c 69 73 74 4d 65 | 6e 75 49 74 65 6d 28 6d |owListMe|nuItem(m|
|00002840| 65 6e 75 2e 46 69 6e 64 | 28 77 29 29 0c 45 6e 64 |enu.Find|(w)).End|
|00002850| 20 46 75 6e 63 74 69 6f | 6e 09 70 5f 67 65 74 4d | Functio|n.p_getM|
|00002860| 65 6e 75 0e 69 64 78 20 | 61 73 20 49 6e 74 65 67 |enu.idx |as Integ|
|00002870| 65 72 12 57 69 6e 64 6f | 77 4c 69 73 74 4d 65 6e |er.Windo|wListMen|
|00002880| 75 49 74 65 6d 01 01 16 | 01 16 03 38 46 75 6e 63 |uItem...|...8Func|
|00002890| 74 69 6f 6e 20 70 5f 67 | 65 74 4d 65 6e 75 28 69 |tion p_g|etMenu(i|
|000028a0| 64 78 20 61 73 20 49 6e | 74 65 67 65 72 29 20 41 |dx as In|teger) A|
|000028b0| 73 20 57 69 6e 64 6f 77 | 4c 69 73 74 4d 65 6e 75 |s Window|ListMenu|
|000028c0| 49 74 65 6d 28 72 65 74 | 75 72 6e 20 57 69 6e 64 |Item(ret|urn Wind|
|000028d0| 6f 77 4c 69 73 74 4d 65 | 6e 75 49 74 65 6d 28 6d |owListMe|nuItem(m|
|000028e0| 65 6e 75 2e 47 65 74 28 | 69 64 78 29 29 0c 45 6e |enu.Get(|idx)).En|
|000028f0| 64 20 46 75 6e 63 74 69 | 6f 6e 0b 70 5f 72 65 6d |d Functi|on.p_rem|
|00002900| 6f 76 65 57 64 77 17 6d | 20 61 73 20 57 69 6e 64 |oveWdw.m| as Wind|
|00002910| 6f 77 4c 69 73 74 4d 65 | 6e 75 49 74 65 6d 00 01 |owListMe|nuItem..|
|00002920| 01 0e 01 0e 03 28 53 75 | 62 20 70 5f 72 65 6d 6f |.....(Su|b p_remo|
|00002930| 76 65 57 64 77 28 6d 20 | 61 73 20 57 69 6e 64 6f |veWdw(m |as Windo|
|00002940| 77 4c 69 73 74 4d 65 6e | 75 49 74 65 6d 29 0e 6d |wListMen|uItem).m|
|00002950| 65 6e 75 2e 52 65 6d 6f | 76 65 28 6d 29 07 45 6e |enu.Remo|ve(m).En|
|00002960| 64 20 53 75 62 06 52 65 | 6d 6f 76 65 0b 77 20 61 |d Sub.Re|move.w a|
|00002970| 73 20 57 69 6e 64 6f 77 | 00 00 05 03 05 03 07 17 |s Window|........|
|00002980| 53 75 62 20 52 65 6d 6f | 76 65 28 77 20 61 73 20 |Sub Remo|ve(w as |
|00002990| 57 69 6e 64 6f 77 29 1b | 44 69 6d 20 6d 20 61 73 |Window).|Dim m as|
|000029a0| 20 57 69 6e 64 6f 77 4c | 69 73 74 4d 65 6e 75 49 | WindowL|istMenuI|
|000029b0| 74 65 6d 11 6d 20 3d 20 | 70 5f 66 69 6e 64 57 64 |tem.m = |p_findWd|
|000029c0| 77 20 28 77 29 10 69 66 | 20 6d 20 3c 3e 20 6e 69 |w (w).if| m <> ni|
|000029d0| 6c 20 74 68 65 6e 0f 70 | 5f 72 65 6d 6f 76 65 57 |l then.p|_removeW|
|000029e0| 64 77 20 28 6d 29 03 65 | 6e 64 07 45 6e 64 20 53 |dw (m).e|nd.End S|
|000029f0| 75 62 03 41 64 64 1c 77 | 20 61 73 20 57 69 6e 64 |ub.Add.w| as Wind|
|00002a00| 6f 77 2c 20 74 69 74 6c | 65 20 61 73 20 53 74 72 |ow, titl|e as Str|
|00002a10| 69 6e 67 00 00 01 12 01 | 12 03 25 53 75 62 20 41 |ing.....|..%Sub A|
|00002a20| 64 64 28 77 20 61 73 20 | 57 69 6e 64 6f 77 2c 20 |dd(w as |Window, |
|00002a30| 74 69 74 6c 65 20 61 73 | 20 53 74 72 69 6e 67 29 |title as| String)|
|00002a40| 12 70 5f 61 64 64 57 64 | 77 28 77 2c 20 74 69 74 |.p_addWd|w(w, tit|
|00002a50| 6c 65 29 07 45 6e 64 20 | 53 75 62 04 49 6e 69 74 |le).End |Sub.Init|
|00002a60| 89 01 61 64 64 43 6d 64 | 4b 65 79 73 20 61 73 20 |..addCmd|Keys as |
|00002a70| 42 6f 6f 6c 65 61 6e 2c | 20 73 74 61 72 74 57 69 |Boolean,| startWi|
|00002a80| 74 68 5a 65 72 6f 20 61 | 73 20 42 6f 6f 6c 65 61 |thZero a|s Boolea|
|00002a90| 6e 2c 20 6b 65 65 70 50 | 6f 73 69 74 69 6f 6e 73 |n, keepP|ositions|
|00002aa0| 20 61 73 20 42 6f 6f 6c | 65 61 6e 00 00 01 03 01 | as Bool|ean.....|
|00002ab0| 11 06 93 01 53 75 62 20 | 49 6e 69 74 28 61 64 64 |....Sub |Init(add|
|00002ac0| 43 6d 64 4b 65 79 73 20 | 61 73 20 42 6f 6f 6c 65 |CmdKeys |as Boole|
|00002ad0| 61 6e 2c 20 73 74 61 72 | 74 57 69 74 68 5a 65 72 |an, star|tWithZer|
|00002ae0| 6f 20 61 73 20 42 6f 6f | 6c 65 61 6e 2c 20 6b 65 |o as Boo|lean, ke|
|00002af0| 65 70 50 6f 73 69 74 69 | 6f 6e 73 20 61 73 20 42 |epPositi|ons as B|
|00002b00| 6f 6f 6c 65 61 6e 29 1e | 6d 65 2e 61 64 64 43 6f |oolean).|me.addCo|
|00002b10| 6d 6d 61 6e 64 4b 65 79 | 73 20 3d 20 61 64 64 43 |mmandKey|s = addC|
|00002b20| 6d 64 4b 65 79 73 23 6d | 65 2e 63 6d 64 4b 65 79 |mdKeys#m|e.cmdKey|
|00002b30| 73 5a 65 72 6f 42 61 73 | 65 64 20 3d 20 73 74 61 |sZeroBas|ed = sta|
|00002b40| 72 74 57 69 74 68 5a 65 | 72 6f 1d 6d 65 6e 75 20 |rtWithZe|ro.menu |
|00002b50| 3d 20 6e 65 77 20 44 79 | 6e 61 6d 69 63 4d 65 6e |= new Dy|namicMen|
|00002b60| 75 49 74 65 6d 4d 67 72 | 18 6d 65 6e 75 2e 49 6e |uItemMgr|.menu.In|
|00002b70| 69 74 28 6b 65 65 70 50 | 6f 73 69 74 69 6f 6e 73 |it(keepP|ositions|
|00002b80| 29 07 45 6e 64 20 53 75 | 62 0d 63 6f 6d 6d 61 6e |).End Su|b.comman|
|00002b90| 64 4b 65 79 53 74 72 0e | 69 64 78 20 61 73 20 49 |dKeyStr.|idx as I|
|00002ba0| 6e 74 65 67 65 72 06 53 | 74 72 69 6e 67 01 07 03 |nteger.S|tring...|
|00002bb0| 07 08 0b 30 46 75 6e 63 | 74 69 6f 6e 20 63 6f 6d |...0Func|tion com|
|00002bc0| 6d 61 6e 64 4b 65 79 53 | 74 72 28 69 64 78 20 61 |mandKeyS|tr(idx a|
|00002bd0| 73 20 49 6e 74 65 67 65 | 72 29 20 41 73 20 53 74 |s Intege|r) As St|
|00002be0| 72 69 6e 67 22 44 69 6d | 20 69 20 61 73 20 49 6e |ring"Dim| i as In|
|00002bf0| 74 65 67 65 72 2c 20 63 | 6d 64 4b 65 79 20 61 73 |teger, c|mdKey as|
|00002c00| 20 53 74 72 69 6e 67 07 | 69 20 3d 20 69 64 78 1c | String.|i = idx.|
|00002c10| 69 66 20 6e 6f 74 20 63 | 6d 64 4b 65 79 73 5a 65 |if not c|mdKeysZe|
|00002c20| 72 6f 42 61 73 65 64 20 | 74 68 65 6e 09 69 20 3d |roBased |then.i =|
|00002c30| 20 69 20 2b 20 31 03 65 | 6e 64 0e 69 66 20 69 20 | i + 1.e|nd.if i |
|00002c40| 3c 3d 20 39 20 74 68 65 | 6e 0f 63 6d 64 4b 65 79 |<= 9 the|n.cmdKey|
|00002c50| 20 3d 20 53 74 72 28 69 | 29 03 65 6e 64 0d 72 65 | = Str(i|).end.re|
|00002c60| 74 75 72 6e 20 63 6d 64 | 4b 65 79 0c 45 6e 64 20 |turn cmd|Key.End |
|00002c70| 46 75 6e 63 74 69 6f 6e | 06 55 70 64 61 74 65 1c |Function|.Update.|
|00002c80| 77 20 61 73 20 57 69 6e | 64 6f 77 2c 20 74 69 74 |w as Win|dow, tit|
|00002c90| 6c 65 20 61 73 20 53 74 | 72 69 6e 67 00 00 01 0d |le as St|ring....|
|00002ca0| 01 0d 03 28 53 75 62 20 | 55 70 64 61 74 65 28 77 |...(Sub |Update(w|
|00002cb0| 20 61 73 20 57 69 6e 64 | 6f 77 2c 20 74 69 74 6c | as Wind|ow, titl|
|00002cc0| 65 20 61 73 20 53 74 72 | 69 6e 67 29 15 6d 65 6e |e as Str|ing).men|
|00002cd0| 75 2e 55 70 64 61 74 65 | 28 77 2c 20 74 69 74 6c |u.Update|(w, titl|
|00002ce0| 65 29 07 45 6e 64 20 53 | 75 62 08 43 6f 6e 74 61 |e).End S|ub.Conta|
|00002cf0| 69 6e 73 0b 77 20 61 73 | 20 57 69 6e 64 6f 77 07 |ins.w as| Window.|
|00002d00| 42 6f 6f 6c 65 61 6e 00 | 01 10 01 10 03 29 46 75 |Boolean.|.....)Fu|
|00002d10| 6e 63 74 69 6f 6e 20 43 | 6f 6e 74 61 69 6e 73 28 |nction C|ontains(|
|00002d20| 77 20 61 73 20 57 69 6e | 64 6f 77 29 20 41 73 20 |w as Win|dow) As |
|00002d30| 42 6f 6f 6c 65 61 6e 1a | 72 65 74 75 72 6e 20 6d |Boolean.|return m|
|00002d40| 65 6e 75 2e 46 69 6e 64 | 28 77 29 20 3c 3e 20 6e |enu.Find|(w) <> n|
|00002d50| 69 6c 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 00 |il.End F|unction.|
|00002d60| 00 00 00 00 0b 12 05 43 | 6c 61 73 73 12 57 69 6e |.......C|lass.Win|
|00002d70| 64 6f 77 4c 69 73 74 4d | 65 6e 75 49 74 65 6d 88 |dowListM|enuItem.|
|00002d80| 03 9d 04 bf 0d 9c 0d 07 | 00 12 57 69 6e 64 6f 77 |........|..Window|
|00002d90| 4c 69 73 74 4d 65 6e 75 | 49 74 65 6d 94 01 0f 44 |ListMenu|Item...D|
|00002da0| 79 6e 61 6d 69 63 4d 65 | 6e 75 49 74 65 6d 00 00 |ynamicMe|nuItem..|
|00002db0| 00 00 04 0f 43 6c 65 61 | 72 50 72 6f 70 65 72 74 |....Clea|rPropert|
|00002dc0| 69 65 73 01 00 01 00 03 | 15 53 75 62 20 43 6c 65 |ies.....|.Sub Cle|
|00002dd0| 61 72 50 72 6f 70 65 72 | 74 69 65 73 28 29 00 07 |arProper|ties()..|
|00002de0| 45 6e 64 20 53 75 62 0e | 43 6f 70 79 50 72 6f 70 |End Sub.|CopyProp|
|00002df0| 65 72 74 69 65 73 01 00 | 01 00 03 28 53 75 62 20 |erties..|...(Sub |
|00002e00| 43 6f 70 79 50 72 6f 70 | 65 72 74 69 65 73 28 6d |CopyProp|erties(m|
|00002e10| 20 61 73 20 44 79 6e 61 | 6d 69 63 4d 65 6e 75 49 | as Dyna|micMenuI|
|00002e20| 74 65 6d 29 00 07 45 6e | 64 20 53 75 62 0a 45 6e |tem)..En|d Sub.En|
|00002e30| 61 62 6c 65 4d 65 6e 75 | 02 0b 02 0b 04 10 53 75 |ableMenu|......Su|
|00002e40| 62 20 45 6e 61 62 6c 65 | 4d 65 6e 75 28 29 1d 2f |b Enable|Menu()./|
|00002e50| 2f 20 63 68 65 63 6b 6d | 61 72 6b 20 74 68 65 20 |/ checkm|ark the |
|00002e60| 66 72 6f 6e 74 20 77 69 | 6e 64 6f 77 22 43 68 65 |front wi|ndow"Che|
|00002e70| 63 6b 65 64 20 3d 20 28 | 46 72 6f 6e 74 57 69 6e |cked = (|FrontWin|
|00002e80| 64 6f 77 28 29 20 3d 20 | 74 68 65 52 65 66 29 07 |dow() = |theRef).|
|00002e90| 45 6e 64 20 53 75 62 06 | 41 63 74 69 6f 6e 03 00 |End Sub.|Action..|
|00002ea0| 03 00 18 1c 46 75 6e 63 | 74 69 6f 6e 20 41 63 74 |....Func|tion Act|
|00002eb0| 69 6f 6e 28 29 20 41 73 | 20 42 6f 6f 6c 65 61 6e |ion() As| Boolean|
|00002ec0| 2f 2f 2f 20 63 61 6c 6c | 65 64 20 77 68 65 6e 20 |/// call|ed when |
|00002ed0| 74 68 65 20 75 73 65 72 | 20 73 65 6c 65 63 74 65 |the user| selecte|
|00002ee0| 64 20 74 68 69 73 20 6d | 65 6e 75 20 69 74 65 6d |d this m|enu item|
|00002ef0| 25 2f 2f 20 2d 3e 20 77 | 65 20 77 61 6e 74 20 74 |%// -> w|e want t|
|00002f00| 6f 20 73 68 6f 77 20 74 | 68 65 20 77 69 6e 64 6f |o show t|he windo|
|00002f10| 77 20 74 68 65 6e 00 2f | 44 69 6d 20 77 20 61 73 |w then./|Dim w as|
|00002f20| 20 57 69 6e 64 6f 77 2c | 20 69 20 61 73 20 49 6e | Window,| i as In|
|00002f30| 74 65 67 65 72 2c 20 66 | 6f 75 6e 64 20 61 73 20 |teger, f|ound as |
|00002f40| 42 6f 6f 6c 65 61 6e 00 | 2d 2f 2f 20 74 68 69 73 |Boolean.|-// this|
|00002f50| 20 63 61 73 74 20 64 6f | 65 73 6e 27 74 20 77 6f | cast do|esn't wo|
|00002f60| 72 6b 20 64 75 65 20 74 | 6f 20 61 20 62 75 67 20 |rk due t|o a bug |
|00002f70| 69 6e 20 52 42 3a 14 27 | 20 77 20 3d 20 57 69 6e |in RB:.'| w = Win|
|00002f80| 64 6f 77 28 74 68 65 52 | 65 66 29 1d 2f 2f 20 69 |dow(theR|ef).// i|
|00002f90| 6e 73 74 65 61 64 2c 20 | 77 65 20 73 65 61 72 63 |nstead, |we searc|
|00002fa0| 68 20 66 6f 72 20 69 74 | 3a 1c 66 6f 72 20 69 20 |h for it|:.for i |
|00002fb0| 3d 20 30 20 74 6f 20 57 | 69 6e 64 6f 77 43 6f 75 |= 0 to W|indowCou|
|00002fc0| 6e 74 20 2d 20 31 0d 77 | 20 3d 20 57 69 6e 64 6f |nt - 1.w| = Windo|
|00002fd0| 77 28 69 29 12 69 66 20 | 77 20 3d 20 74 68 65 52 |w(i).if |w = theR|
|00002fe0| 65 66 20 74 68 65 6e 0c | 66 6f 75 6e 64 20 3d 20 |ef then.|found = |
|00002ff0| 74 72 75 65 04 65 78 69 | 74 03 65 6e 64 04 6e 65 |true.exi|t.end.ne|
|00003000| 78 74 11 69 66 20 6e 6f | 74 20 66 6f 75 6e 64 20 |xt.if no|t found |
|00003010| 74 68 65 6e 07 77 20 3d | 20 6e 69 6c 03 65 6e 64 |then.w =| nil.end|
|00003020| 00 10 69 66 20 77 20 3c | 3e 20 6e 69 6c 20 74 68 |..if w <|> nil th|
|00003030| 65 6e 06 77 2e 53 68 6f | 77 03 65 6e 64 0c 45 6e |en.w.Sho|w.end.En|
|00003040| 64 20 46 75 6e 63 74 69 | 6f 6e 00 00 00 0c 12 05 |d Functi|on......|
|00003050| 43 6c 61 73 73 12 44 79 | 6e 61 6d 69 63 4d 65 6e |Class.Dy|namicMen|
|00003060| 75 49 74 65 6d 4d 67 72 | ea 0d a1 03 cc 01 a5 0d |uItemMgr|........|
|00003070| 07 00 12 44 79 6e 61 6d | 69 63 4d 65 6e 75 49 74 |...Dynam|icMenuIt|
|00003080| 65 6d 4d 67 72 2a 00 00 | 06 0f 42 61 73 65 20 61 |emMgr*..|..Base a|
|00003090| 73 20 49 6e 74 65 67 65 | 72 00 14 75 73 65 64 49 |s Intege|r..usedI|
|000030a0| 74 65 6d 73 20 61 73 20 | 49 6e 74 65 67 65 72 01 |tems as |Integer.|
|000030b0| 11 69 6e 69 74 65 64 20 | 61 73 20 42 6f 6f 6c 65 |.inited |as Boole|
|000030c0| 61 6e 01 11 6d 61 78 49 | 64 78 20 61 73 20 49 6e |an..maxI|dx as In|
|000030d0| 74 65 67 65 72 01 18 64 | 6f 6e 74 4c 65 61 76 65 |teger..d|ontLeave|
|000030e0| 47 61 70 73 20 61 73 20 | 42 6f 6f 6c 65 61 6e 01 |Gaps as |Boolean.|
|000030f0| 1d 6b 65 65 70 45 6e 74 | 72 69 65 73 49 6e 4f 72 |.keepEnt|riesInOr|
|00003100| 64 65 72 20 61 73 20 42 | 6f 6f 6c 65 61 6e 01 0b |der as B|oolean..|
|00003110| 03 41 64 64 1e 72 65 66 | 20 61 73 20 4f 62 6a 65 |.Add.ref| as Obje|
|00003120| 63 74 2c 20 74 69 74 6c | 65 20 61 73 20 53 74 72 |ct, titl|e as Str|
|00003130| 69 6e 67 00 00 06 10 06 | 10 09 27 53 75 62 20 41 |ing.....|..'Sub A|
|00003140| 64 64 28 72 65 66 20 61 | 73 20 4f 62 6a 65 63 74 |dd(ref a|s Object|
|00003150| 2c 20 74 69 74 6c 65 20 | 61 73 20 53 74 72 69 6e |, title |as Strin|
|00003160| 67 29 12 44 69 6d 20 69 | 64 78 20 61 73 20 49 6e |g).Dim i|dx as In|
|00003170| 74 65 67 65 72 18 69 66 | 20 46 69 6e 64 28 72 65 |teger.if| Find(re|
|00003180| 66 29 20 3c 3e 20 6e 69 | 6c 20 74 68 65 6e 34 2f |f) <> ni|l then4/|
|00003190| 2f 20 74 68 65 72 65 27 | 73 20 61 6c 72 65 61 64 |/ there'|s alread|
|000031a0| 79 20 61 20 57 69 6e 64 | 6f 77 20 72 65 67 69 73 |y a Wind|ow regis|
|000031b0| 74 65 72 65 64 20 77 69 | 74 68 20 74 68 61 74 20 |tered wi|th that |
|000031c0| 72 65 66 1a 52 61 69 73 | 65 20 6e 65 77 20 52 75 |ref.Rais|e new Ru|
|000031d0| 6e 74 69 6d 65 45 78 63 | 65 70 74 69 6f 6e 03 65 |ntimeExc|eption.e|
|000031e0| 6e 64 10 69 64 78 20 3d | 20 66 69 6e 64 46 72 65 |nd.idx =| findFre|
|000031f0| 65 28 29 1a 53 65 74 28 | 69 64 78 2c 20 72 65 66 |e().Set(|idx, ref|
|00003200| 2c 20 74 69 74 6c 65 2c | 20 74 72 75 65 29 07 45 |, title,| true).E|
|00003210| 6e 64 20 53 75 62 04 46 | 69 6e 64 0d 72 65 66 20 |nd Sub.F|ind.ref |
|00003220| 61 73 20 4f 62 6a 65 63 | 74 0f 44 79 6e 61 6d 69 |as Objec|t.Dynami|
|00003230| 63 4d 65 6e 75 49 74 65 | 6d 00 03 0b 03 0b 0a 2f |cMenuIte|m....../|
|00003240| 46 75 6e 63 74 69 6f 6e | 20 46 69 6e 64 28 72 65 |Function| Find(re|
|00003250| 66 20 61 73 20 4f 62 6a | 65 63 74 29 20 41 73 20 |f as Obj|ect) As |
|00003260| 44 79 6e 61 6d 69 63 4d | 65 6e 75 49 74 65 6d 26 |DynamicM|enuItem&|
|00003270| 44 69 6d 20 69 20 61 73 | 20 49 6e 74 65 67 65 72 |Dim i as| Integer|
|00003280| 2c 20 6d 20 61 73 20 44 | 79 6e 61 6d 69 63 4d 65 |, m as D|ynamicMe|
|00003290| 6e 75 49 74 65 6d 18 66 | 6f 72 20 69 20 3d 20 30 |nuItem.f|or i = 0|
|000032a0| 20 74 6f 20 75 73 65 64 | 49 74 65 6d 73 2d 31 0b | to used|Items-1.|
|000032b0| 6d 20 3d 20 47 65 74 20 | 28 69 29 16 69 66 20 6d |m = Get |(i).if m|
|000032c0| 2e 74 68 65 52 65 66 20 | 3d 20 72 65 66 20 74 68 |.theRef |= ref th|
|000032d0| 65 6e 08 72 65 74 75 72 | 6e 20 6d 03 65 6e 64 04 |en.retur|n m.end.|
|000032e0| 6e 65 78 74 0a 72 65 74 | 75 72 6e 20 6e 69 6c 0c |next.ret|urn nil.|
|000032f0| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 03 47 65 74 |End Func|tion.Get|
|00003300| 17 69 64 78 5a 65 72 6f | 42 61 73 65 64 20 61 73 |.idxZero|Based as|
|00003310| 20 49 6e 74 65 67 65 72 | 0f 44 79 6e 61 6d 69 63 | Integer|.Dynamic|
|00003320| 4d 65 6e 75 49 74 65 6d | 00 09 00 09 00 14 38 46 |MenuItem|......8F|
|00003330| 75 6e 63 74 69 6f 6e 20 | 47 65 74 28 69 64 78 5a |unction |Get(idxZ|
|00003340| 65 72 6f 42 61 73 65 64 | 20 61 73 20 49 6e 74 65 |eroBased| as Inte|
|00003350| 67 65 72 29 20 41 73 20 | 44 79 6e 61 6d 69 63 4d |ger) As |DynamicM|
|00003360| 65 6e 75 49 74 65 6d 29 | 44 69 6d 20 69 2c 20 6a |enuItem)|Dim i, j|
|00003370| 20 61 73 20 49 6e 74 65 | 67 65 72 2c 20 6d 20 61 | as Inte|ger, m a|
|00003380| 73 20 44 79 6e 61 6d 69 | 63 4d 65 6e 75 49 74 65 |s Dynami|cMenuIte|
|00003390| 6d 22 69 66 20 69 64 78 | 5a 65 72 6f 42 61 73 65 |m"if idx|ZeroBase|
|000033a0| 64 2b 62 61 73 65 20 3e | 20 6d 61 78 49 64 78 20 |d+base >| maxIdx |
|000033b0| 74 68 65 6e 0a 72 65 74 | 75 72 6e 20 6e 69 6c 03 |then.ret|urn nil.|
|000033c0| 65 6e 64 08 69 20 3d 20 | 62 61 73 65 10 6a 20 3d |end.i = |base.j =|
|000033d0| 20 69 64 78 5a 65 72 6f | 42 61 73 65 64 02 64 6f | idxZero|Based.do|
|000033e0| 13 6d 20 3d 20 72 61 77 | 4d 65 6e 75 49 74 65 6d |.m = raw|MenuItem|
|000033f0| 20 28 69 29 21 69 66 20 | 6d 20 3d 20 6e 69 6c 20 | (i)!if |m = nil |
|00003400| 6f 72 20 6d 2e 74 68 65 | 52 65 66 20 3d 20 6e 69 |or m.the|Ref = ni|
|00003410| 6c 20 74 68 65 6e 0b 27 | 20 73 6b 69 70 20 74 68 |l then.'| skip th|
|00003420| 69 73 11 65 6c 73 65 69 | 66 20 6a 20 3d 20 30 20 |is.elsei|f j = 0 |
|00003430| 74 68 65 6e 08 72 65 74 | 75 72 6e 20 6d 04 65 6c |then.ret|urn m.el|
|00003440| 73 65 09 6a 20 3d 20 6a | 20 2d 20 31 03 65 6e 64 |se.j = j| - 1.end|
|00003450| 09 69 20 3d 20 69 20 2b | 20 31 04 6c 6f 6f 70 0a |.i = i +| 1.loop.|
|00003460| 72 65 74 75 72 6e 20 6e | 69 6c 0c 45 6e 64 20 46 |return n|il.End F|
|00003470| 75 6e 63 74 69 6f 6e 03 | 73 65 74 84 01 72 61 77 |unction.|set..raw|
|00003480| 49 64 78 20 61 73 20 49 | 6e 74 65 67 65 72 2c 20 |Idx as I|nteger, |
|00003490| 72 65 66 20 61 73 20 4f | 62 6a 65 63 74 2c 20 74 |ref as O|bject, t|
|000034a0| 69 74 6c 65 20 61 73 20 | 53 74 72 69 6e 67 2c 20 |itle as |String, |
|000034b0| 69 6e 73 65 72 74 20 61 | 73 20 42 6f 6f 6c 65 61 |insert a|s Boolea|
|000034c0| 6e 00 01 16 00 16 00 31 | 8d 01 53 75 62 20 73 65 |n......1|..Sub se|
|000034d0| 74 28 72 61 77 49 64 78 | 20 61 73 20 49 6e 74 65 |t(rawIdx| as Inte|
|000034e0| 67 65 72 2c 20 72 65 66 | 20 61 73 20 4f 62 6a 65 |ger, ref| as Obje|
|000034f0| 63 74 2c 20 74 69 74 6c | 65 20 61 73 20 53 74 72 |ct, titl|e as Str|
|00003500| 69 6e 67 2c 20 69 6e 73 | 65 72 74 20 61 73 20 42 |ing, ins|ert as B|
|00003510| 6f 6f 6c 65 61 6e 29 1c | 44 69 6d 20 6d 31 2c 6d |oolean).|Dim m1,m|
|00003520| 32 20 61 73 20 44 79 6e | 61 6d 69 63 4d 65 6e 75 |2 as Dyn|amicMenu|
|00003530| 49 74 65 6d 16 44 69 6d | 20 69 2c 20 6a 2c 20 6e |Item.Dim| i, j, n|
|00003540| 20 61 73 20 49 6e 74 65 | 67 65 72 0f 44 69 6d 20 | as Inte|ger.Dim |
|00003550| 73 20 61 73 20 53 74 72 | 69 6e 67 24 44 69 6d 20 |s as Str|ing$Dim |
|00003560| 75 70 64 61 74 69 6e 67 | 45 78 69 73 74 69 6e 67 |updating|Existing|
|00003570| 45 6e 74 72 79 20 61 73 | 20 42 6f 6f 6c 65 61 6e |Entry as| Boolean|
|00003580| 00 0a 6e 20 3d 20 72 61 | 77 49 64 78 12 69 66 20 |..n = ra|wIdx.if |
|00003590| 6e 20 3e 20 6d 61 78 49 | 64 78 20 74 68 65 6e 0c |n > maxI|dx then.|
|000035a0| 6e 20 3d 20 6d 61 78 49 | 64 78 2b 31 03 65 6e 64 |n = maxI|dx+1.end|
|000035b0| 00 1f 69 66 20 6e 20 3d | 20 30 20 61 6e 64 20 75 |..if n =| 0 and u|
|000035c0| 73 65 64 49 74 65 6d 73 | 20 3d 20 30 20 74 68 65 |sedItems| = 0 the|
|000035d0| 6e 93 01 2f 2f 20 74 68 | 65 72 65 27 73 20 63 75 |n..// th|ere's cu|
|000035e0| 72 72 65 6e 74 6c 79 20 | 6f 6e 6c 79 20 6f 6e 65 |rrently |only one|
|000035f0| 20 65 6e 74 72 79 2c 20 | 77 68 69 63 68 20 69 73 | entry, |which is|
|00003600| 20 69 6e 76 69 73 69 62 | 6c 65 20 2d 3e 20 75 70 | invisib|le -> up|
|00003610| 64 61 74 65 20 26 20 6d | 61 6b 65 20 69 74 20 76 |date & m|ake it v|
|00003620| 69 73 69 62 6c 65 13 6d | 31 20 3d 20 72 61 77 4d |isible.m|1 = rawM|
|00003630| 65 6e 75 49 74 65 6d 28 | 30 29 1c 75 70 64 61 74 |enuItem(|0).updat|
|00003640| 69 6e 67 45 78 69 73 74 | 69 6e 67 45 6e 74 72 79 |ingExist|ingEntry|
|00003650| 20 3d 20 74 72 75 65 0d | 75 73 65 64 49 74 65 6d | = true.|usedItem|
|00003660| 73 20 3d 20 31 12 65 6c | 73 65 69 66 20 69 6e 73 |s = 1.el|seif ins|
|00003670| 65 72 74 20 74 68 65 6e | 1c 2f 2f 20 61 6c 77 61 |ert then|.// alwa|
|00003680| 79 73 20 63 72 65 61 74 | 65 20 61 20 6e 65 77 20 |ys creat|e a new |
|00003690| 65 6e 74 72 79 1d 75 70 | 64 61 74 69 6e 67 45 78 |entry.up|datingEx|
|000036a0| 69 73 74 69 6e 67 45 6e | 74 72 79 20 3d 20 66 61 |istingEn|try = fa|
|000036b0| 6c 73 65 04 65 6c 73 65 | 27 2f 2f 20 63 68 65 63 |lse.else|'// chec|
|000036c0| 6b 20 69 66 20 65 6e 74 | 72 79 20 69 73 20 6a 75 |k if ent|ry is ju|
|000036d0| 73 74 20 62 65 69 6e 67 | 20 75 70 64 61 74 65 64 |st being| updated|
|000036e0| 13 6d 31 20 3d 20 72 61 | 77 4d 65 6e 75 49 74 65 |.m1 = ra|wMenuIte|
|000036f0| 6d 28 6e 29 21 75 70 64 | 61 74 69 6e 67 45 78 69 |m(n)!upd|atingExi|
|00003700| 73 74 69 6e 67 45 6e 74 | 72 79 20 3d 20 6d 31 20 |stingEnt|ry = m1 |
|00003710| 3c 3e 20 6e 69 6c 03 65 | 6e 64 00 21 69 66 20 6e |<> nil.e|nd.!if n|
|00003720| 6f 74 20 75 70 64 61 74 | 69 6e 67 45 78 69 73 74 |ot updat|ingExist|
|00003730| 69 6e 67 45 6e 74 72 79 | 20 74 68 65 6e 1a 2f 2f |ingEntry| then.//|
|00003740| 20 63 72 65 61 74 65 20 | 61 20 6e 65 77 20 4d 65 | create |a new Me|
|00003750| 6e 75 20 45 6e 74 72 79 | 17 6d 31 20 3d 20 6e 65 |nu Entry|.m1 = ne|
|00003760| 77 20 54 68 65 44 79 6e | 61 6d 69 63 4d 65 6e 75 |w TheDyn|amicMenu|
|00003770| 19 75 73 65 64 49 74 65 | 6d 73 20 3d 20 75 73 65 |.usedIte|ms = use|
|00003780| 64 49 74 65 6d 73 20 2b | 20 31 0c 6a 20 3d 20 6d |dItems +| 1.j = m|
|00003790| 31 2e 69 6e 64 65 78 12 | 69 66 20 6a 20 3e 20 6d |1.index.|if j > m|
|000037a0| 61 78 49 64 78 20 74 68 | 65 6e 0a 6d 61 78 49 64 |axIdx th|en.maxId|
|000037b0| 78 20 3d 20 6a 03 65 6e | 64 0e 69 66 20 69 6e 73 |x = j.en|d.if ins|
|000037c0| 65 72 74 20 74 68 65 6e | 36 2f 2f 20 6e 6f 77 20 |ert then|6// now |
|000037d0| 6d 6f 76 65 20 74 68 65 | 20 65 6e 74 72 69 65 73 |move the| entries|
|000037e0| 20 74 6f 20 6d 61 6b 65 | 20 72 6f 6f 6d 20 66 6f | to make| room fo|
|000037f0| 72 20 74 68 65 20 69 6e | 73 65 72 74 69 6f 6e 14 |r the in|sertion.|
|00003800| 66 6f 72 20 69 20 3d 20 | 6a 2d 31 20 64 6f 77 6e |for i = |j-1 down|
|00003810| 74 6f 20 6e 14 6d 32 20 | 3d 20 72 61 77 4d 65 6e |to n.m2 |= rawMen|
|00003820| 75 49 74 65 6d 20 28 69 | 29 15 6d 31 2e 43 6f 70 |uItem (i|).m1.Cop|
|00003830| 79 50 72 6f 70 65 72 74 | 69 65 73 28 6d 32 29 07 |yPropert|ies(m2).|
|00003840| 6d 31 20 3d 20 6d 32 04 | 6e 65 78 74 03 65 6e 64 |m1 = m2.|next.end|
|00003850| 03 65 6e 64 00 11 6d 31 | 2e 56 69 73 69 62 6c 65 |.end..m1|.Visible|
|00003860| 20 3d 20 74 72 75 65 13 | 6d 31 2e 73 6f 72 74 49 | = true.|m1.sortI|
|00003870| 64 78 20 3d 20 72 61 77 | 49 64 78 0f 6d 31 2e 54 |dx = raw|Idx.m1.T|
|00003880| 65 78 74 20 3d 20 74 69 | 74 6c 65 0f 6d 31 2e 74 |ext = ti|tle.m1.t|
|00003890| 68 65 52 65 66 20 3d 20 | 72 65 66 0f 6d 31 2e 74 |heRef = |ref.m1.t|
|000038a0| 68 65 4d 65 6e 75 20 3d | 20 6d 65 07 45 6e 64 20 |heMenu =| me.End |
|000038b0| 53 75 62 06 52 65 6d 6f | 76 65 14 6d 20 61 73 20 |Sub.Remo|ve.m as |
|000038c0| 44 79 6e 61 6d 69 63 4d | 65 6e 75 49 74 65 6d 00 |DynamicM|enuItem.|
|000038d0| 00 15 00 15 00 1c 20 53 | 75 62 20 52 65 6d 6f 76 |...... S|ub Remov|
|000038e0| 65 28 6d 20 61 73 20 44 | 79 6e 61 6d 69 63 4d 65 |e(m as D|ynamicMe|
|000038f0| 6e 75 49 74 65 6d 29 1d | 44 69 6d 20 6d 31 2c 20 |nuItem).|Dim m1, |
|00003900| 6d 32 20 61 73 20 44 79 | 6e 61 6d 69 63 4d 65 6e |m2 as Dy|namicMen|
|00003910| 75 49 74 65 6d 13 44 69 | 6d 20 69 2c 20 6a 20 61 |uItem.Di|m i, j a|
|00003920| 73 20 49 6e 74 65 67 65 | 72 00 0b 6a 20 3d 20 6d |s Intege|r..j = m|
|00003930| 2e 69 6e 64 65 78 06 6d | 31 20 3d 20 6d 15 69 66 |.index.m|1 = m.if|
|00003940| 20 64 6f 6e 74 4c 65 61 | 76 65 47 61 70 73 20 74 | dontLea|veGaps t|
|00003950| 68 65 6e 33 2f 2f 20 6d | 6f 76 65 20 74 68 65 20 |hen3// m|ove the |
|00003960| 69 74 65 6d 73 20 69 6e | 20 74 68 65 20 6d 65 6e |items in| the men|
|00003970| 75 20 61 72 72 61 79 20 | 74 6f 20 66 69 6c 6c 20 |u array |to fill |
|00003980| 74 68 65 20 67 61 70 15 | 66 6f 72 20 69 20 3d 20 |the gap.|for i = |
|00003990| 6a 2b 31 20 74 6f 20 6d | 61 78 49 64 78 14 6d 32 |j+1 to m|axIdx.m2|
|000039a0| 20 3d 20 72 61 77 4d 65 | 6e 75 49 74 65 6d 20 28 | = rawMe|nuItem (|
|000039b0| 69 29 15 6d 31 2e 43 6f | 70 79 50 72 6f 70 65 72 |i).m1.Co|pyProper|
|000039c0| 74 69 65 73 28 6d 32 29 | 07 6d 31 20 3d 20 6d 32 |ties(m2)|.m1 = m2|
|000039d0| 04 6e 65 78 74 13 6d 61 | 78 49 64 78 20 3d 20 6d |.next.ma|xIdx = m|
|000039e0| 61 78 49 64 78 20 2d 20 | 31 03 65 6e 64 00 19 75 |axIdx - |1.end..u|
|000039f0| 73 65 64 49 74 65 6d 73 | 20 3d 20 75 73 65 64 49 |sedItems| = usedI|
|00003a00| 74 65 6d 73 20 2d 20 31 | 00 13 69 66 20 6d 2e 69 |tems - 1|..if m.i|
|00003a10| 6e 64 65 78 20 3d 20 30 | 20 74 68 65 6e 96 01 27 |ndex = 0| then..'|
|00003a20| 20 77 65 20 6d 75 73 74 | 20 61 6c 77 61 79 73 20 | we must| always |
|00003a30| 6b 65 65 70 20 61 74 20 | 6c 65 61 73 74 20 6f 6e |keep at |least on|
|00003a40| 65 20 6d 65 6e 75 20 69 | 74 65 6d 2c 20 6f 74 68 |e menu i|tem, oth|
|00003a50| 65 72 77 69 73 65 20 61 | 64 64 69 6e 67 20 77 6f |erwise a|dding wo|
|00003a60| 75 6c 64 20 6e 6f 74 20 | 77 6f 72 6b 20 61 6e 79 |uld not |work any|
|00003a70| 20 6d 6f 72 65 a0 01 6d | 31 2e 76 69 73 69 62 6c | more..m|1.visibl|
|00003a80| 65 20 3d 20 66 61 6c 73 | 65 20 2f 2f 20 2b 2b 2b |e = fals|e // +++|
|00003a90| 20 74 68 69 73 20 63 61 | 75 73 65 73 20 74 72 6f | this ca|uses tro|
|00003aa0| 75 62 6c 65 20 69 6e 20 | 52 42 31 3a 20 77 65 20 |uble in |RB1: we |
|00003ab0| 63 61 6e 6e 6f 74 20 73 | 65 74 20 74 68 65 20 6d |cannot s|et the m|
|00003ac0| 65 6e 75 20 6e 61 6d 65 | 73 20 74 68 65 6e 20 61 |enu name|s then a|
|00003ad0| 6e 79 20 6d 6f 72 65 0f | 6d 31 2e 73 6f 72 74 49 |ny more.|m1.sortI|
|00003ae0| 64 78 20 3d 20 2d 31 12 | 6d 31 2e 63 6f 6d 6d 61 |dx = -1.|m1.comma|
|00003af0| 6e 64 4b 65 79 20 3d 20 | 22 22 14 6d 31 2e 43 6c |ndKey = |"".m1.Cl|
|00003b00| 65 61 72 50 72 6f 70 65 | 72 74 69 65 73 28 29 04 |earPrope|rties().|
|00003b10| 65 6c 73 65 08 6d 31 2e | 63 6c 6f 73 65 03 65 6e |else.m1.|close.en|
|00003b20| 64 07 45 6e 64 20 53 75 | 62 04 49 6e 69 74 1d 6b |d.End Su|b.Init.k|
|00003b30| 65 65 70 45 6e 74 72 69 | 65 73 49 6e 4f 72 64 65 |eepEntri|esInOrde|
|00003b40| 72 20 61 73 20 42 6f 6f | 6c 65 61 6e 00 00 07 15 |r as Boo|lean....|
|00003b50| 07 15 12 27 53 75 62 20 | 49 6e 69 74 28 6b 65 65 |...'Sub |Init(kee|
|00003b60| 70 45 6e 74 72 69 65 73 | 49 6e 4f 72 64 65 72 20 |pEntries|InOrder |
|00003b70| 61 73 20 42 6f 6f 6c 65 | 61 6e 29 18 44 69 6d 20 |as Boole|an).Dim |
|00003b80| 6d 20 61 73 20 44 79 6e | 61 6d 69 63 4d 65 6e 75 |m as Dyn|amicMenu|
|00003b90| 49 74 65 6d 12 69 66 20 | 6e 6f 74 20 69 6e 69 74 |Item.if |not init|
|00003ba0| 65 64 20 74 68 65 6e 0d | 69 6e 69 74 65 64 20 3d |ed then.|inited =|
|00003bb0| 20 74 72 75 65 12 6d 20 | 3d 20 72 61 77 4d 65 6e | true.m |= rawMen|
|00003bc0| 75 49 74 65 6d 28 30 29 | 24 69 66 20 4c 6f 77 65 |uItem(0)|$if Lowe|
|00003bd0| 72 63 61 73 65 20 28 6d | 2e 54 65 78 74 29 20 3d |rcase (m|.Text) =|
|00003be0| 20 22 66 69 72 73 74 22 | 20 74 68 65 6e 08 62 61 | "first"| then.ba|
|00003bf0| 73 65 20 3d 20 30 9f 01 | 6d 2e 76 69 73 69 62 6c |se = 0..|m.visibl|
|00003c00| 65 20 3d 20 66 61 6c 73 | 65 20 2f 2f 20 2b 2b 2b |e = fals|e // +++|
|00003c10| 20 74 68 69 73 20 63 61 | 75 73 65 73 20 74 72 6f | this ca|uses tro|
|00003c20| 75 62 6c 65 20 69 6e 20 | 52 42 31 3a 20 77 65 20 |uble in |RB1: we |
|00003c30| 63 61 6e 6e 6f 74 20 73 | 65 74 20 74 68 65 20 6d |cannot s|et the m|
|00003c40| 65 6e 75 20 6e 61 6d 65 | 73 20 74 68 65 6e 20 61 |enu name|s then a|
|00003c50| 6e 79 20 6d 6f 72 65 0e | 6d 2e 73 6f 72 74 49 64 |ny more.|m.sortId|
|00003c60| 78 20 3d 20 2d 31 04 65 | 6c 73 65 08 62 61 73 65 |x = -1.e|lse.base|
|00003c70| 20 3d 20 31 03 65 6e 64 | 0d 75 73 65 64 49 74 65 | = 1.end|.usedIte|
|00003c80| 6d 73 20 3d 20 30 0a 6d | 61 78 49 64 78 20 3d 20 |ms = 0.m|axIdx = |
|00003c90| 30 2a 6d 65 2e 6b 65 65 | 70 45 6e 74 72 69 65 73 |0*me.kee|pEntries|
|00003ca0| 49 6e 4f 72 64 65 72 20 | 3d 20 6b 65 65 70 45 6e |InOrder |= keepEn|
|00003cb0| 74 72 69 65 73 49 6e 4f | 72 64 65 72 25 6d 65 2e |triesInO|rder%me.|
|00003cc0| 64 6f 6e 74 4c 65 61 76 | 65 47 61 70 73 20 3d 20 |dontLeav|eGaps = |
|00003cd0| 6b 65 65 70 45 6e 74 72 | 69 65 73 49 6e 4f 72 64 |keepEntr|iesInOrd|
|00003ce0| 65 72 03 65 6e 64 07 45 | 6e 64 20 53 75 62 05 43 |er.end.E|nd Sub.C|
|00003cf0| 6f 75 6e 74 00 07 49 6e | 74 65 67 65 72 00 01 10 |ount..In|teger...|
|00003d00| 01 10 03 1b 46 75 6e 63 | 74 69 6f 6e 20 43 6f 75 |....Func|tion Cou|
|00003d10| 6e 74 28 29 20 41 73 20 | 49 6e 74 65 67 65 72 10 |nt() As |Integer.|
|00003d20| 72 65 74 75 72 6e 20 75 | 73 65 64 49 74 65 6d 73 |return u|sedItems|
|00003d30| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 12 44 79 |.End Fun|ction.Dy|
|00003d40| 6e 61 6d 69 63 4d 65 6e | 75 49 74 65 6d 4d 67 72 |namicMen|uItemMgr|
|00003d50| 00 00 00 05 0a 05 0a 07 | 18 53 75 62 20 44 79 6e |........|.Sub Dyn|
|00003d60| 61 6d 69 63 4d 65 6e 75 | 49 74 65 6d 4d 67 72 28 |amicMenu|ItemMgr(|
|00003d70| 29 33 2f 2f 20 74 68 65 | 20 63 6f 6e 73 74 72 75 |)3// the| constru|
|00003d80| 63 74 6f 72 20 66 6f 72 | 20 74 68 69 73 20 63 6c |ctor for| this cl|
|00003d90| 61 73 73 20 28 69 73 20 | 61 75 74 6f 6d 61 74 69 |ass (is |automati|
|00003da0| 63 61 6c 6c 79 34 2f 2f | 20 63 61 6c 6c 65 64 20 |cally4//| called |
|00003db0| 77 68 65 6e 20 63 6c 61 | 73 73 20 69 73 20 69 6e |when cla|ss is in|
|00003dc0| 73 74 61 6e 74 69 61 74 | 65 64 2c 20 62 75 74 20 |stantiat|ed, but |
|00003dd0| 6f 6e 6c 79 20 69 6e 20 | 52 42 32 2f 2f 20 56 65 |only in |RB2// Ve|
|00003de0| 72 73 69 6f 6e 20 32 2c | 20 6e 6f 74 20 69 6e 20 |rsion 2,| not in |
|00003df0| 56 65 72 73 69 6f 6e 20 | 31 20 2d 20 74 68 65 72 |Version |1 - ther|
|00003e00| 65 20 79 6f 75 20 68 61 | 76 65 20 74 6f 19 2f 2f |e you ha|ve to.//|
|00003e10| 20 63 61 6c 6c 20 49 6e | 69 74 20 65 78 70 6c 69 | call In|it expli|
|00003e20| 63 69 74 6c 79 21 29 0a | 49 6e 69 74 28 74 72 75 |citly!).|Init(tru|
|00003e30| 65 29 07 45 6e 64 20 53 | 75 62 08 66 69 6e 64 46 |e).End S|ub.findF|
|00003e40| 72 65 65 00 07 49 6e 74 | 65 67 65 72 01 05 14 05 |ree..Int|eger....|
|00003e50| 1b 15 1e 46 75 6e 63 74 | 69 6f 6e 20 66 69 6e 64 |...Funct|ion find|
|00003e60| 46 72 65 65 28 29 20 41 | 73 20 49 6e 74 65 67 65 |Free() A|s Intege|
|00003e70| 72 25 44 69 6d 20 69 2c | 20 6e 2c 20 78 20 61 73 |r%Dim i,| n, x as|
|00003e80| 20 49 6e 74 65 67 65 72 | 2c 20 6d 20 61 73 20 4d | Integer|, m as M|
|00003e90| 65 6e 75 49 74 65 6d 1a | 69 66 20 6b 65 65 70 45 |enuItem.|if keepE|
|00003ea0| 6e 74 72 69 65 73 49 6e | 4f 72 64 65 72 20 74 68 |ntriesIn|Order th|
|00003eb0| 65 6e 1a 2f 2f 20 66 69 | 6e 64 20 61 6e 20 75 6e |en.// fi|nd an un|
|00003ec0| 75 73 65 64 20 70 6f 73 | 69 74 69 6f 6e 16 66 6f |used pos|ition.fo|
|00003ed0| 72 20 69 20 3d 20 62 61 | 73 65 20 74 6f 20 6d 61 |r i = ba|se to ma|
|00003ee0| 78 49 64 78 1b 78 20 3d | 20 72 61 77 4d 65 6e 75 |xIdx.x =| rawMenu|
|00003ef0| 49 74 65 6d 20 28 69 29 | 2e 73 6f 72 74 49 64 78 |Item (i)|.sortIdx|
|00003f00| 0e 69 66 20 78 20 3c 3e | 20 69 20 74 68 65 6e 08 |.if x <>| i then.|
|00003f10| 72 65 74 75 72 6e 20 69 | 03 65 6e 64 04 6e 65 78 |return i|.end.nex|
|00003f20| 74 04 65 6c 73 65 29 2f | 2f 20 6a 75 73 74 20 66 |t.else)/|/ just f|
|00003f30| 69 6e 64 20 61 6e 20 75 | 6e 75 73 65 64 20 6d 65 |ind an u|nused me|
|00003f40| 6e 75 20 61 72 72 61 79 | 20 65 6c 65 6d 65 6e 74 |nu array| element|
|00003f50| 16 66 6f 72 20 69 20 3d | 20 62 61 73 65 20 74 6f |.for i =| base to|
|00003f60| 20 6d 61 78 49 64 78 13 | 6d 20 3d 20 72 61 77 4d | maxIdx.|m = rawM|
|00003f70| 65 6e 75 49 74 65 6d 20 | 28 69 29 20 69 66 20 6d |enuItem |(i) if m|
|00003f80| 20 3d 20 6e 69 6c 20 6f | 72 20 6e 6f 74 20 6d 2e | = nil o|r not m.|
|00003f90| 76 69 73 69 62 6c 65 20 | 74 68 65 6e 08 72 65 74 |visible |then.ret|
|00003fa0| 75 72 6e 20 69 03 65 6e | 64 04 6e 65 78 74 03 65 |urn i.en|d.next.e|
|00003fb0| 6e 64 0f 72 65 74 75 72 | 6e 20 6d 61 78 49 64 78 |nd.retur|n maxIdx|
|00003fc0| 2b 31 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 0b |+1.End F|unction.|
|00003fd0| 72 61 77 4d 65 6e 75 49 | 74 65 6d 0e 69 64 78 20 |rawMenuI|tem.idx |
|00003fe0| 61 73 20 49 6e 74 65 67 | 65 72 0f 44 79 6e 61 6d |as Integ|er.Dynam|
|00003ff0| 69 63 4d 65 6e 75 49 74 | 65 6d 01 01 00 01 00 03 |icMenuIt|em......|
|00004000| 37 46 75 6e 63 74 69 6f | 6e 20 72 61 77 4d 65 6e |7Functio|n rawMen|
|00004010| 75 49 74 65 6d 28 69 64 | 78 20 61 73 20 49 6e 74 |uItem(id|x as Int|
|00004020| 65 67 65 72 29 20 41 73 | 20 44 79 6e 61 6d 69 63 |eger) As| Dynamic|
|00004030| 4d 65 6e 75 49 74 65 6d | 1a 72 65 74 75 72 6e 20 |MenuItem|.return |
|00004040| 54 68 65 44 79 6e 61 6d | 69 63 4d 65 6e 75 28 69 |TheDynam|icMenu(i|
|00004050| 64 78 29 0c 45 6e 64 20 | 46 75 6e 63 74 69 6f 6e |dx).End |Function|
|00004060| 06 55 70 64 61 74 65 1e | 72 65 66 20 61 73 20 4f |.Update.|ref as O|
|00004070| 62 6a 65 63 74 2c 20 74 | 69 74 6c 65 20 61 73 20 |bject, t|itle as |
|00004080| 53 74 72 69 6e 67 00 00 | 07 1f 07 1f 09 2a 53 75 |String..|.....*Su|
|00004090| 62 20 55 70 64 61 74 65 | 28 72 65 66 20 61 73 20 |b Update|(ref as |
|000040a0| 4f 62 6a 65 63 74 2c 20 | 74 69 74 6c 65 20 61 73 |Object, |title as|
|000040b0| 20 53 74 72 69 6e 67 29 | 28 44 69 6d 20 69 64 78 | String)|(Dim idx|
|000040c0| 20 61 73 20 49 6e 74 65 | 67 65 72 2c 20 6d 20 61 | as Inte|ger, m a|
|000040d0| 73 20 44 79 6e 61 6d 69 | 63 4d 65 6e 75 49 74 65 |s Dynami|cMenuIte|
|000040e0| 6d 0d 6d 20 3d 20 46 69 | 6e 64 28 72 65 66 29 0f |m.m = Fi|nd(ref).|
|000040f0| 69 66 20 6d 20 3d 20 6e | 69 6c 20 74 68 65 6e 2d |if m = n|il then-|
|00004100| 2f 2f 20 74 68 65 72 65 | 27 73 20 6e 6f 20 57 69 |// there|'s no Wi|
|00004110| 6e 64 6f 77 20 72 65 67 | 69 73 74 65 72 65 64 20 |ndow reg|istered |
|00004120| 77 69 74 68 20 74 68 61 | 74 20 72 65 66 1a 52 61 |with tha|t ref.Ra|
|00004130| 69 73 65 20 6e 65 77 20 | 52 75 6e 74 69 6d 65 45 |ise new |RuntimeE|
|00004140| 78 63 65 70 74 69 6f 6e | 03 65 6e 64 1f 53 65 74 |xception|.end.Set|
|00004150| 28 6d 2e 69 6e 64 65 78 | 2c 20 72 65 66 2c 20 74 |(m.index|, ref, t|
|00004160| 69 74 6c 65 2c 20 66 61 | 6c 73 65 29 07 45 6e 64 |itle, fa|lse).End|
|00004170| 20 53 75 62 00 02 0a 45 | 6e 61 62 6c 65 4d 65 6e | Sub...E|nableMen|
|00004180| 75 01 00 01 00 03 10 53 | 75 62 20 45 6e 61 62 6c |u......S|ub Enabl|
|00004190| 65 4d 65 6e 75 28 29 00 | 07 45 6e 64 20 53 75 62 |eMenu().|.End Sub|
|000041a0| 06 41 63 74 69 6f 6e 01 | 00 01 00 03 1c 46 75 6e |.Action.|.....Fun|
|000041b0| 63 74 69 6f 6e 20 41 63 | 74 69 6f 6e 28 29 20 41 |ction Ac|tion() A|
|000041c0| 73 20 42 6f 6f 6c 65 61 | 6e 00 0c 45 6e 64 20 46 |s Boolea|n..End F|
|000041d0| 75 6e 63 74 69 6f 6e 00 | 00 00 0d 12 05 43 6c 61 |unction.|.....Cla|
|000041e0| 73 73 0f 44 79 6e 61 6d | 69 63 4d 65 6e 75 49 74 |ss.Dynam|icMenuIt|
|000041f0| 65 6d 9f 01 81 03 a9 0d | 82 08 07 00 0f 44 79 6e |em......|.....Dyn|
|00004200| 61 6d 69 63 4d 65 6e 75 | 49 74 65 6d 94 01 08 4d |amicMenu|Item...M|
|00004210| 65 6e 75 49 74 65 6d 00 | 03 10 74 68 65 52 65 66 |enuItem.|..theRef|
|00004220| 20 61 73 20 4f 62 6a 65 | 63 74 00 1d 74 68 65 4d | as Obje|ct..theM|
|00004230| 65 6e 75 20 61 73 20 44 | 79 6e 61 6d 69 63 4d 65 |enu as D|ynamicMe|
|00004240| 6e 75 49 74 65 6d 4d 67 | 72 00 12 73 6f 72 74 49 |nuItemMg|r..sortI|
|00004250| 64 78 20 61 73 20 49 6e | 74 65 67 65 72 00 02 0e |dx as In|teger...|
|00004260| 43 6f 70 79 50 72 6f 70 | 65 72 74 69 65 73 14 6d |CopyProp|erties.m|
|00004270| 20 61 73 20 44 79 6e 61 | 6d 69 63 4d 65 6e 75 49 | as Dyna|micMenuI|
|00004280| 74 65 6d 00 00 05 07 05 | 0c 09 28 53 75 62 20 43 |tem.....|..(Sub C|
|00004290| 6f 70 79 50 72 6f 70 65 | 72 74 69 65 73 28 6d 20 |opyPrope|rties(m |
|000042a0| 61 73 20 44 79 6e 61 6d | 69 63 4d 65 6e 75 49 74 |as Dynam|icMenuIt|
|000042b0| 65 6d 29 11 74 68 65 52 | 65 66 20 3d 20 6d 2e 74 |em).theR|ef = m.t|
|000042c0| 68 65 52 65 66 13 74 68 | 65 4d 65 6e 75 20 3d 20 |heRef.th|eMenu = |
|000042d0| 6d 2e 74 68 65 4d 65 6e | 75 0d 74 65 78 74 20 3d |m.theMen|u.text =|
|000042e0| 20 6d 2e 74 65 78 74 13 | 63 68 65 63 6b 65 64 20 | m.text.|checked |
|000042f0| 3d 20 6d 2e 63 68 65 63 | 6b 65 64 19 63 6f 6d 6d |= m.chec|ked.comm|
|00004300| 61 6e 64 4b 65 79 20 3d | 20 6d 2e 63 6f 6d 6d 61 |andKey =| m.comma|
|00004310| 6e 64 4b 65 79 13 73 6f | 72 74 49 64 78 20 3d 20 |ndKey.so|rtIdx = |
|00004320| 6d 2e 73 6f 72 74 49 64 | 78 12 43 6f 70 79 50 72 |m.sortId|x.CopyPr|
|00004330| 6f 70 65 72 74 69 65 73 | 20 28 6d 29 07 45 6e 64 |operties| (m).End|
|00004340| 20 53 75 62 0f 43 6c 65 | 61 72 50 72 6f 70 65 72 | Sub.Cle|arProper|
|00004350| 74 69 65 73 00 00 00 03 | 0f 03 0f 05 15 53 75 62 |ties....|.....Sub|
|00004360| 20 43 6c 65 61 72 50 72 | 6f 70 65 72 74 69 65 73 | ClearPr|operties|
|00004370| 28 29 0c 74 68 65 52 65 | 66 20 3d 20 6e 69 6c 0d |().theRe|f = nil.|
|00004380| 74 68 65 4d 65 6e 75 20 | 3d 20 6e 69 6c 11 43 6c |theMenu |= nil.Cl|
|00004390| 65 61 72 50 72 6f 70 65 | 72 74 69 65 73 28 29 07 |earPrope|rties().|
|000043a0| 45 6e 64 20 53 75 62 03 | 0a 45 6e 61 62 6c 65 4d |End Sub.|.EnableM|
|000043b0| 65 6e 75 00 00 0e 43 6f | 70 79 50 72 6f 70 65 72 |enu...Co|pyProper|
|000043c0| 74 69 65 73 14 6d 20 61 | 73 20 44 79 6e 61 6d 69 |ties.m a|s Dynami|
|000043d0| 63 4d 65 6e 75 49 74 65 | 6d 00 0f 43 6c 65 61 72 |cMenuIte|m..Clear|
|000043e0| 50 72 6f 70 65 72 74 69 | 65 73 00 00 02 0a 45 6e |Properti|es....En|
|000043f0| 61 62 6c 65 4d 65 6e 75 | 02 08 02 08 04 10 53 75 |ableMenu|......Su|
|00004400| 62 20 45 6e 61 62 6c 65 | 4d 65 6e 75 28 29 0e 45 |b Enable|Menu().E|
|00004410| 6e 61 62 6c 65 64 20 3d | 20 74 72 75 65 0c 45 6e |nabled =| true.En|
|00004420| 61 62 6c 65 4d 65 6e 75 | 28 29 07 45 6e 64 20 53 |ableMenu|().End S|
|00004430| 75 62 06 41 63 74 69 6f | 6e 01 00 01 00 03 1c 46 |ub.Actio|n......F|
|00004440| 75 6e 63 74 69 6f 6e 20 | 41 63 74 69 6f 6e 28 29 |unction |Action()|
|00004450| 20 41 73 20 42 6f 6f 6c | 65 61 6e 00 0c 45 6e 64 | As Bool|ean..End|
|00004460| 20 46 75 6e 63 74 69 6f | 6e 00 00 00 0e 13 04 56 | Functio|n......V|
|00004470| 69 65 77 11 43 61 6e 63 | 65 6c 43 6c 6f 73 65 44 |iew.Canc|elCloseD|
|00004480| 69 61 6c 6f 67 04 ac 02 | ba 04 12 04 4e 61 6d 65 |ialog...|....Name|
|00004490| 11 43 61 6e 63 65 6c 43 | 6c 6f 73 65 44 69 61 6c |.CancelC|loseDial|
|000044a0| 6f 67 05 46 72 61 6d 65 | 01 31 0c 48 61 73 42 61 |og.Frame|.1.HasBa|
|000044b0| 63 6b 43 6f 6c 6f 72 05 | 46 61 6c 73 65 09 42 61 |ckColor.|False.Ba|
|000044c0| 63 6b 43 6f 6c 6f 72 08 | 31 36 37 37 37 32 31 35 |ckColor.|16777215|
|000044d0| 08 42 61 63 6b 64 72 6f | 70 01 30 05 54 69 74 6c |.Backdro|p.0.Titl|
|000044e0| 65 00 07 56 69 73 69 62 | 6c 65 05 46 61 6c 73 65 |e..Visib|le.False|
|000044f0| 08 43 6c 6f 73 65 42 6f | 78 05 46 61 6c 73 65 08 |.CloseBo|x.False.|
|00004500| 47 72 6f 77 49 63 6f 6e | 05 46 61 6c 73 65 08 5a |GrowIcon|.False.Z|
|00004510| 6f 6f 6d 49 63 6f 6e 05 | 46 61 6c 73 65 0b 42 61 |oomIcon.|False.Ba|
|00004520| 6c 6c 6f 6f 6e 48 65 6c | 70 00 09 50 6c 61 63 65 |lloonHel|p..Place|
|00004530| 6d 65 6e 74 01 30 05 57 | 69 64 74 68 03 33 34 33 |ment.0.W|idth.343|
|00004540| 06 48 65 69 67 68 74 03 | 31 31 34 08 4d 69 6e 57 |.Height.|114.MinW|
|00004550| 69 64 74 68 02 36 34 09 | 4d 69 6e 48 65 69 67 68 |idth.64.|MinHeigh|
|00004560| 74 02 36 34 08 4d 61 78 | 57 69 64 74 68 05 33 32 |t.64.Max|Width.32|
|00004570| 30 30 30 09 4d 61 78 48 | 65 69 67 68 74 05 33 32 |000.MaxH|eight.32|
|00004580| 30 30 30 07 00 11 43 61 | 6e 63 65 6c 43 6c 6f 73 |000...Ca|ncelClos|
|00004590| 65 44 69 61 6c 6f 67 b0 | 01 06 44 69 61 6c 6f 67 |eDialog.|..Dialog|
|000045a0| 00 01 19 73 65 6c 65 63 | 74 65 64 41 63 74 69 6f |...selec|tedActio|
|000045b0| 6e 20 61 73 20 49 6e 74 | 65 67 65 72 01 01 0d 41 |n as Int|eger...A|
|000045c0| 73 6b 55 73 65 72 54 6f | 53 61 76 65 12 64 6f 63 |skUserTo|Save.doc|
|000045d0| 54 69 74 6c 65 20 61 73 | 20 53 74 72 69 6e 67 07 |Title as| String.|
|000045e0| 49 6e 74 65 67 65 72 00 | 09 00 09 00 0b 35 46 75 |Integer.|.....5Fu|
|000045f0| 6e 63 74 69 6f 6e 20 41 | 73 6b 55 73 65 72 54 6f |nction A|skUserTo|
|00004600| 53 61 76 65 28 64 6f 63 | 54 69 74 6c 65 20 61 73 |Save(doc|Title as|
|00004610| 20 53 74 72 69 6e 67 29 | 20 41 73 20 49 6e 74 65 | String)| As Inte|
|00004620| 67 65 72 0b 2f 2f 20 52 | 65 74 75 72 6e 73 3a 1d |ger.// R|eturns:.|
|00004630| 2f 2f 20 31 20 2d 20 79 | 65 73 2c 20 73 61 76 65 |// 1 - y|es, save|
|00004640| 20 74 68 65 20 64 6f 63 | 75 6d 65 6e 74 18 2f 2f | the doc|ument.//|
|00004650| 20 30 20 2d 20 6e 6f 2c | 20 64 6f 6e 27 74 20 73 | 0 - no,| don't s|
|00004660| 61 76 65 20 69 74 33 2f | 2f 20 2d 31 20 63 61 6e |ave it3/|/ -1 can|
|00004670| 63 65 6c 20 74 68 65 20 | 77 68 6f 6c 65 20 70 72 |cel the |whole pr|
|00004680| 6f 63 65 73 73 20 28 6c | 65 61 76 65 20 77 69 6e |ocess (l|eave win|
|00004690| 64 6f 77 20 6f 70 65 6e | 21 29 00 3a 74 68 65 54 |dow open|!).:theT|
|000046a0| 65 78 74 2e 43 61 70 74 | 69 6f 6e 20 3d 20 52 65 |ext.Capt|ion = Re|
|000046b0| 70 6c 61 63 65 28 74 68 | 65 54 65 78 74 2e 43 61 |place(th|eText.Ca|
|000046c0| 70 74 69 6f 6e 2c 20 22 | 5e 30 22 2c 20 64 6f 63 |ption, "|^0", doc|
|000046d0| 54 69 74 6c 65 29 0b 53 | 68 6f 77 4d 6f 64 61 6c |Title).S|howModal|
|000046e0| 28 29 07 43 6c 6f 73 65 | 28 29 15 72 65 74 75 72 |().Close|().retur|
|000046f0| 6e 20 73 65 6c 65 63 74 | 65 64 41 63 74 69 6f 6e |n select|edAction|
|00004700| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 00 01 04 |.End Fun|ction...|
|00004710| 4f 70 65 6e 01 00 01 00 | 03 0a 53 75 62 20 4f 70 |Open....|..Sub Op|
|00004720| 65 6e 28 29 00 07 45 6e | 64 20 53 75 62 00 00 05 |en()..En|d Sub...|
|00004730| 07 00 00 a4 01 06 43 61 | 6e 76 61 73 00 00 00 00 |......Ca|nvas....|
|00004740| 01 05 50 61 69 6e 74 01 | 0d 01 0d 03 18 53 75 62 |..Paint.|.....Sub|
|00004750| 20 50 61 69 6e 74 28 67 | 20 41 73 20 47 72 61 70 | Paint(g| As Grap|
|00004760| 68 69 63 73 29 15 67 2e | 44 72 61 77 43 61 75 74 |hics).g.|DrawCaut|
|00004770| 69 6f 6e 49 63 6f 6e 20 | 30 2c 30 07 45 6e 64 20 |ionIcon |0,0.End |
|00004780| 53 75 62 00 00 07 00 00 | b4 01 0a 53 74 61 74 69 |Sub.....|...Stati|
|00004790| 63 54 65 78 74 00 00 00 | 00 01 09 4d 6f 75 73 65 |cText...|...Mouse|
|000047a0| 4d 6f 76 65 01 00 01 00 | 03 29 53 75 62 20 4d 6f |Move....|.)Sub Mo|
|000047b0| 75 73 65 4d 6f 76 65 28 | 58 20 41 73 20 49 6e 74 |useMove(|X As Int|
|000047c0| 65 67 65 72 2c 20 59 20 | 41 73 20 49 6e 74 65 67 |eger, Y |As Integ|
|000047d0| 65 72 29 00 07 45 6e 64 | 20 53 75 62 00 00 07 00 |er)..End| Sub....|
|000047e0| 00 b4 01 0a 50 75 73 68 | 42 75 74 74 6f 6e 00 00 |....Push|Button..|
|000047f0| 00 00 01 06 41 63 74 69 | 6f 6e 02 06 02 06 04 0c |....Acti|on......|
|00004800| 53 75 62 20 41 63 74 69 | 6f 6e 28 29 12 73 65 6c |Sub Acti|on().sel|
|00004810| 65 63 74 65 64 41 63 74 | 69 6f 6e 20 3d 20 31 06 |ectedAct|ion = 1.|
|00004820| 48 69 64 65 28 29 07 45 | 6e 64 20 53 75 62 00 00 |Hide().E|nd Sub..|
|00004830| 07 00 00 b4 01 0a 50 75 | 73 68 42 75 74 74 6f 6e |......Pu|shButton|
|00004840| 00 00 00 00 01 06 41 63 | 74 69 6f 6e 02 06 01 13 |......Ac|tion....|
|00004850| 04 0c 53 75 62 20 41 63 | 74 69 6f 6e 28 29 13 73 |..Sub Ac|tion().s|
|00004860| 65 6c 65 63 74 65 64 41 | 63 74 69 6f 6e 20 3d 20 |electedA|ction = |
|00004870| 2d 31 06 48 69 64 65 28 | 29 07 45 6e 64 20 53 75 |-1.Hide(|).End Su|
|00004880| 62 00 00 07 00 00 b4 01 | 0a 50 75 73 68 42 75 74 |b.......|.PushBut|
|00004890| 74 6f 6e 00 00 00 00 01 | 06 41 63 74 69 6f 6e 02 |ton.....|.Action.|
|000048a0| 06 02 06 04 0c 53 75 62 | 20 41 63 74 69 6f 6e 28 |.....Sub| Action(|
|000048b0| 29 12 73 65 6c 65 63 74 | 65 64 41 63 74 69 6f 6e |).select|edAction|
|000048c0| 20 3d 20 30 06 48 69 64 | 65 28 29 07 45 6e 64 20 | = 0.Hid|e().End |
|000048d0| 53 75 62 00 00 05 06 43 | 61 6e 76 61 73 10 04 4e |Sub....C|anvas..N|
|000048e0| 61 6d 65 07 74 68 65 49 | 63 6f 6e 05 49 6e 64 65 |ame.theI|con.Inde|
|000048f0| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|00004900| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|00004910| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 02 |sible.Tr|ue.Left.|
|00004920| 31 33 03 54 6f 70 02 31 | 33 05 57 69 64 74 68 02 |13.Top.1|3.Width.|
|00004930| 33 32 06 48 65 69 67 68 | 74 02 33 32 0b 42 61 6c |32.Heigh|t.32.Bal|
|00004940| 6c 6f 6f 6e 48 65 6c 70 | 00 13 44 69 73 61 62 6c |loonHelp|..Disabl|
|00004950| 65 64 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 08 4c |edBalloo|nHelp..L|
|00004960| 6f 63 6b 4c 65 66 74 05 | 46 61 6c 73 65 07 4c 6f |ockLeft.|False.Lo|
|00004970| 63 6b 54 6f 70 05 46 61 | 6c 73 65 09 4c 6f 63 6b |ckTop.Fa|lse.Lock|
|00004980| 52 69 67 68 74 05 46 61 | 6c 73 65 0a 4c 6f 63 6b |Right.Fa|lse.Lock|
|00004990| 42 6f 74 74 6f 6d 05 46 | 61 6c 73 65 08 42 61 63 |Bottom.F|alse.Bac|
|000049a0| 6b 64 72 6f 70 01 30 07 | 45 6e 61 62 6c 65 64 04 |kdrop.0.|Enabled.|
|000049b0| 54 72 75 65 00 0a 53 74 | 61 74 69 63 54 65 78 74 |True..St|aticText|
|000049c0| 17 04 4e 61 6d 65 07 74 | 68 65 54 65 78 74 05 49 |..Name.t|heText.I|
|000049d0| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|000049e0| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|000049f0| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00004a00| 66 74 02 35 37 03 54 6f | 70 02 31 33 05 57 69 64 |ft.57.To|p.13.Wid|
|00004a10| 74 68 03 32 37 33 06 48 | 65 69 67 68 74 02 35 34 |th.273.H|eight.54|
|00004a20| 0b 42 61 6c 6c 6f 6f 6e | 48 65 6c 70 00 13 44 69 |.Balloon|Help..Di|
|00004a30| 73 61 62 6c 65 64 42 61 | 6c 6c 6f 6f 6e 48 65 6c |sabledBa|lloonHel|
|00004a40| 70 00 08 4c 6f 63 6b 4c | 65 66 74 04 54 72 75 65 |p..LockL|eft.True|
|00004a50| 07 4c 6f 63 6b 54 6f 70 | 04 54 72 75 65 09 4c 6f |.LockTop|.True.Lo|
|00004a60| 63 6b 52 69 67 68 74 04 | 54 72 75 65 0a 4c 6f 63 |ckRight.|True.Loc|
|00004a70| 6b 42 6f 74 74 6f 6d 04 | 54 72 75 65 08 54 65 78 |kBottom.|True.Tex|
|00004a80| 74 46 6f 6e 74 06 53 79 | 73 74 65 6d 08 54 65 78 |tFont.Sy|stem.Tex|
|00004a90| 74 53 69 7a 65 02 31 32 | 04 42 6f 6c 64 05 46 61 |tSize.12|.Bold.Fa|
|00004aa0| 6c 73 65 06 49 74 61 6c | 69 63 05 46 61 6c 73 65 |lse.Ital|ic.False|
|00004ab0| 09 55 6e 64 65 72 6c 69 | 6e 65 05 46 61 6c 73 65 |.Underli|ne.False|
|00004ac0| 04 54 65 78 74 31 53 61 | 76 65 20 63 68 61 6e 67 |.Text1Sa|ve chang|
|00004ad0| 65 73 20 74 6f 20 74 68 | 65 20 64 6f 63 75 6d 65 |es to th|e docume|
|00004ae0| 6e 74 20 d2 5e 30 d3 20 | 62 65 66 6f 72 65 20 63 |nt .^0. |before c|
|00004af0| 6c 6f 73 69 6e 67 3f 09 | 54 65 78 74 41 6c 69 67 |losing?.|TextAlig|
|00004b00| 6e 01 30 09 54 65 78 74 | 43 6f 6c 6f 72 01 30 09 |n.0.Text|Color.0.|
|00004b10| 4d 75 6c 74 69 4c 69 6e | 65 04 54 72 75 65 01 0a |MultiLin|e.True..|
|00004b20| 50 75 73 68 42 75 74 74 | 6f 6e 17 04 4e 61 6d 65 |PushButt|on..Name|
|00004b30| 0a 73 61 76 65 42 75 74 | 74 6f 6e 05 49 6e 64 65 |.saveBut|ton.Inde|
|00004b40| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|00004b50| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|00004b60| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 03 |sible.Tr|ue.Left.|
|00004b70| 32 37 30 03 54 6f 70 02 | 38 31 05 57 69 64 74 68 |270.Top.|81.Width|
|00004b80| 02 36 30 06 48 65 69 67 | 68 74 02 32 30 0b 42 61 |.60.Heig|ht.20.Ba|
|00004b90| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|00004ba0| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|00004bb0| 4c 6f 63 6b 4c 65 66 74 | 05 46 61 6c 73 65 07 4c |LockLeft|.False.L|
|00004bc0| 6f 63 6b 54 6f 70 05 46 | 61 6c 73 65 09 4c 6f 63 |ockTop.F|alse.Loc|
|00004bd0| 6b 52 69 67 68 74 04 54 | 72 75 65 0a 4c 6f 63 6b |kRight.T|rue.Lock|
|00004be0| 42 6f 74 74 6f 6d 04 54 | 72 75 65 08 54 65 78 74 |Bottom.T|rue.Text|
|00004bf0| 46 6f 6e 74 06 53 79 73 | 74 65 6d 08 54 65 78 74 |Font.Sys|tem.Text|
|00004c00| 53 69 7a 65 02 31 32 04 | 42 6f 6c 64 05 46 61 6c |Size.12.|Bold.Fal|
|00004c10| 73 65 06 49 74 61 6c 69 | 63 05 46 61 6c 73 65 09 |se.Itali|c.False.|
|00004c20| 55 6e 64 65 72 6c 69 6e | 65 05 46 61 6c 73 65 07 |Underlin|e.False.|
|00004c30| 43 61 70 74 69 6f 6e 04 | 53 61 76 65 07 44 65 66 |Caption.|Save.Def|
|00004c40| 61 75 6c 74 04 54 72 75 | 65 06 43 61 6e 63 65 6c |ault.Tru|e.Cancel|
|00004c50| 05 46 61 6c 73 65 07 45 | 6e 61 62 6c 65 64 04 54 |.False.E|nabled.T|
|00004c60| 72 75 65 02 0a 50 75 73 | 68 42 75 74 74 6f 6e 17 |rue..Pus|hButton.|
|00004c70| 04 4e 61 6d 65 0c 63 61 | 6e 63 65 6c 42 75 74 74 |.Name.ca|ncelButt|
|00004c80| 6f 6e 05 49 6e 64 65 78 | 0b 2d 32 31 34 37 34 38 |on.Index|.-214748|
|00004c90| 33 36 34 38 0d 54 61 62 | 50 61 6e 65 6c 49 6e 64 |3648.Tab|PanelInd|
|00004ca0| 65 78 01 30 07 56 69 73 | 69 62 6c 65 04 54 72 75 |ex.0.Vis|ible.Tru|
|00004cb0| 65 04 4c 65 66 74 03 31 | 39 33 03 54 6f 70 02 38 |e.Left.1|93.Top.8|
|00004cc0| 31 05 57 69 64 74 68 02 | 36 30 06 48 65 69 67 68 |1.Width.|60.Heigh|
|00004cd0| 74 02 32 30 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |t.20.Bal|loonHelp|
|00004ce0| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|00004cf0| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 05 |nHelp..L|ockLeft.|
|00004d00| 46 61 6c 73 65 07 4c 6f | 63 6b 54 6f 70 05 46 61 |False.Lo|ckTop.Fa|
|00004d10| 6c 73 65 09 4c 6f 63 6b | 52 69 67 68 74 04 54 72 |lse.Lock|Right.Tr|
|00004d20| 75 65 0a 4c 6f 63 6b 42 | 6f 74 74 6f 6d 04 54 72 |ue.LockB|ottom.Tr|
|00004d30| 75 65 08 54 65 78 74 46 | 6f 6e 74 06 53 79 73 74 |ue.TextF|ont.Syst|
|00004d40| 65 6d 08 54 65 78 74 53 | 69 7a 65 02 31 32 04 42 |em.TextS|ize.12.B|
|00004d50| 6f 6c 64 05 46 61 6c 73 | 65 06 49 74 61 6c 69 63 |old.Fals|e.Italic|
|00004d60| 05 46 61 6c 73 65 09 55 | 6e 64 65 72 6c 69 6e 65 |.False.U|nderline|
|00004d70| 05 46 61 6c 73 65 07 43 | 61 70 74 69 6f 6e 06 43 |.False.C|aption.C|
|00004d80| 61 6e 63 65 6c 07 44 65 | 66 61 75 6c 74 05 46 61 |ancel.De|fault.Fa|
|00004d90| 6c 73 65 06 43 61 6e 63 | 65 6c 04 54 72 75 65 07 |lse.Canc|el.True.|
|00004da0| 45 6e 61 62 6c 65 64 04 | 54 72 75 65 03 0a 50 75 |Enabled.|True..Pu|
|00004db0| 73 68 42 75 74 74 6f 6e | 17 04 4e 61 6d 65 0d 64 |shButton|..Name.d|
|00004dc0| 69 73 63 61 72 64 42 75 | 74 74 6f 6e 05 49 6e 64 |iscardBu|tton.Ind|
|00004dd0| 65 78 0b 2d 32 31 34 37 | 34 38 33 36 34 38 0d 54 |ex.-2147|483648.T|
|00004de0| 61 62 50 61 6e 65 6c 49 | 6e 64 65 78 01 30 07 56 |abPanelI|ndex.0.V|
|00004df0| 69 73 69 62 6c 65 04 54 | 72 75 65 04 4c 65 66 74 |isible.T|rue.Left|
|00004e00| 02 35 37 03 54 6f 70 02 | 38 31 05 57 69 64 74 68 |.57.Top.|81.Width|
|00004e10| 02 38 30 06 48 65 69 67 | 68 74 02 32 30 0b 42 61 |.80.Heig|ht.20.Ba|
|00004e20| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|00004e30| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|00004e40| 4c 6f 63 6b 4c 65 66 74 | 04 54 72 75 65 07 4c 6f |LockLeft|.True.Lo|
|00004e50| 63 6b 54 6f 70 05 46 61 | 6c 73 65 09 4c 6f 63 6b |ckTop.Fa|lse.Lock|
|00004e60| 52 69 67 68 74 05 46 61 | 6c 73 65 0a 4c 6f 63 6b |Right.Fa|lse.Lock|
|00004e70| 42 6f 74 74 6f 6d 04 54 | 72 75 65 08 54 65 78 74 |Bottom.T|rue.Text|
|00004e80| 46 6f 6e 74 06 53 79 73 | 74 65 6d 08 54 65 78 74 |Font.Sys|tem.Text|
|00004e90| 53 69 7a 65 02 31 32 04 | 42 6f 6c 64 05 46 61 6c |Size.12.|Bold.Fal|
|00004ea0| 73 65 06 49 74 61 6c 69 | 63 05 46 61 6c 73 65 09 |se.Itali|c.False.|
|00004eb0| 55 6e 64 65 72 6c 69 6e | 65 05 46 61 6c 73 65 07 |Underlin|e.False.|
|00004ec0| 43 61 70 74 69 6f 6e 0a | 44 6f 6e 27 74 20 53 61 |Caption.|Don't Sa|
|00004ed0| 76 65 07 44 65 66 61 75 | 6c 74 05 46 61 6c 73 65 |ve.Defau|lt.False|
|00004ee0| 06 43 61 6e 63 65 6c 05 | 46 61 6c 73 65 07 45 6e |.Cancel.|False.En|
|00004ef0| 61 62 6c 65 64 04 54 72 | 75 65 04 00 0f 41 04 56 |abled.Tr|ue...A.V|
|00004f00| 69 65 77 0a 54 65 73 74 | 57 69 6e 64 6f 77 04 a4 |iew.Test|Window..|
|00004f10| 01 a4 01 12 04 4e 61 6d | 65 0a 54 65 73 74 57 69 |.....Nam|e.TestWi|
|00004f20| 6e 64 6f 77 05 46 72 61 | 6d 65 01 30 0c 48 61 73 |ndow.Fra|me.0.Has|
|00004f30| 42 61 63 6b 43 6f 6c 6f | 72 05 46 61 6c 73 65 09 |BackColo|r.False.|
|00004f40| 42 61 63 6b 43 6f 6c 6f | 72 08 31 36 37 37 37 32 |BackColo|r.167772|
|00004f50| 31 35 08 42 61 63 6b 64 | 72 6f 70 01 30 05 54 69 |15.Backd|rop.0.Ti|
|00004f60| 74 6c 65 08 55 6e 74 69 | 74 6c 65 64 07 56 69 73 |tle.Unti|tled.Vis|
|00004f70| 69 62 6c 65 05 46 61 6c | 73 65 08 43 6c 6f 73 65 |ible.Fal|se.Close|
|00004f80| 42 6f 78 04 54 72 75 65 | 08 47 72 6f 77 49 63 6f |Box.True|.GrowIco|
|00004f90| 6e 05 46 61 6c 73 65 08 | 5a 6f 6f 6d 49 63 6f 6e |n.False.|ZoomIcon|
|00004fa0| 05 46 61 6c 73 65 0b 42 | 61 6c 6c 6f 6f 6e 48 65 |.False.B|alloonHe|
|00004fb0| 6c 70 00 09 50 6c 61 63 | 65 6d 65 6e 74 01 34 05 |lp..Plac|ement.4.|
|00004fc0| 57 69 64 74 68 03 32 37 | 36 06 48 65 69 67 68 74 |Width.27|6.Height|
|00004fd0| 03 32 39 31 08 4d 69 6e | 57 69 64 74 68 02 36 34 |.291.Min|Width.64|
|00004fe0| 09 4d 69 6e 48 65 69 67 | 68 74 02 36 34 08 4d 61 |.MinHeig|ht.64.Ma|
|00004ff0| 78 57 69 64 74 68 05 33 | 32 30 30 30 09 4d 61 78 |xWidth.3|2000.Max|
|00005000| 48 65 69 67 68 74 05 33 | 32 30 30 30 07 00 0a 54 |Height.3|2000...T|
|00005010| 65 73 74 57 69 6e 64 6f | 77 b0 01 06 44 69 61 6c |estWindo|w...Dial|
|00005020| 6f 67 00 01 23 74 68 65 | 44 6f 63 75 6d 65 6e 74 |og..#the|Document|
|00005030| 46 6f 6c 64 65 72 49 74 | 65 6d 20 61 73 20 46 6f |FolderIt|em as Fo|
|00005040| 6c 64 65 72 49 74 65 6d | 01 01 0c 53 61 76 65 44 |lderItem|...SaveD|
|00005050| 6f 63 75 6d 65 6e 74 00 | 07 42 6f 6f 6c 65 61 6e |ocument.|.Boolean|
|00005060| 00 04 00 04 00 11 22 46 | 75 6e 63 74 69 6f 6e 20 |......"F|unction |
|00005070| 53 61 76 65 44 6f 63 75 | 6d 65 6e 74 28 29 20 41 |SaveDocu|ment() A|
|00005080| 73 20 42 6f 6f 6c 65 61 | 6e 3a 2f 2f 20 53 61 76 |s Boolea|n:// Sav|
|00005090| 65 20 74 68 65 20 64 6f | 63 75 6d 65 6e 74 2e 20 |e the do|cument. |
|000050a0| 49 66 20 69 74 20 66 61 | 69 6c 73 2c 20 72 65 74 |If it fa|ils, ret|
|000050b0| 75 72 6e 20 66 61 6c 73 | 65 2c 20 65 6c 73 65 20 |urn fals|e, else |
|000050c0| 74 72 75 65 23 69 66 20 | 74 68 65 44 6f 63 75 6d |true#if |theDocum|
|000050d0| 65 6e 74 46 6f 6c 64 65 | 72 49 74 65 6d 20 3d 20 |entFolde|rItem = |
|000050e0| 6e 69 6c 20 74 68 65 6e | 37 2f 2f 20 77 65 20 64 |nil then|7// we d|
|000050f0| 6f 6e 27 74 20 6b 6e 6f | 77 20 77 68 65 72 65 20 |on't kno|w where |
|00005100| 74 6f 20 73 61 76 65 20 | 69 74 20 79 65 74 20 2d |to save |it yet -|
|00005110| 20 73 6f 20 61 73 6b 20 | 74 68 65 20 75 73 65 72 | so ask |the user|
|00005120| 35 74 68 65 44 6f 63 75 | 6d 65 6e 74 46 6f 6c 64 |5theDocu|mentFold|
|00005130| 65 72 49 74 65 6d 20 3d | 20 47 65 74 53 61 76 65 |erItem =| GetSave|
|00005140| 46 6f 6c 64 65 72 49 74 | 65 6d 20 28 22 22 2c 20 |FolderIt|em ("", |
|00005150| 54 69 74 6c 65 29 23 69 | 66 20 74 68 65 44 6f 63 |Title)#i|f theDoc|
|00005160| 75 6d 65 6e 74 46 6f 6c | 64 65 72 49 74 65 6d 20 |umentFol|derItem |
|00005170| 3d 20 6e 69 6c 20 74 68 | 65 6e 1d 2f 2f 20 74 68 |= nil th|en.// th|
|00005180| 65 20 75 73 65 72 20 63 | 61 6e 63 65 6c 6c 65 64 |e user c|ancelled|
|00005190| 20 2d 20 61 62 6f 72 74 | 0c 72 65 74 75 72 6e 20 | - abort|.return |
|000051a0| 66 61 6c 73 65 03 65 6e | 64 03 65 6e 64 14 2f 2f |false.en|d.end.//|
|000051b0| 20 6e 6f 77 20 73 61 76 | 65 20 74 68 65 20 64 61 | now sav|e the da|
|000051c0| 74 61 3d 2f 2f 20 20 2d | 20 69 66 20 61 6e 20 65 |ta=//  -| if an e|
|000051d0| 72 72 6f 72 20 6f 63 63 | 75 72 73 2c 20 74 68 65 |rror occ|urs, the|
|000051e0| 6e 20 74 65 6c 6c 20 74 | 68 65 20 75 73 65 72 20 |n tell t|he user |
|000051f0| 61 6e 64 20 72 65 74 75 | 72 6e 20 66 61 6c 73 65 |and retu|rn false|
|00005200| 00 06 2f 2f 20 2e 2e 2e | 00 20 72 65 74 75 72 6e |..// ...|. return|
|00005210| 20 74 72 75 65 20 2f 2f | 20 69 6e 64 69 63 61 74 | true //| indicat|
|00005220| 65 73 20 73 75 63 63 65 | 73 73 0c 45 6e 64 20 46 |es succe|ss.End F|
|00005230| 75 6e 63 74 69 6f 6e 00 | 04 0b 43 61 6e 63 65 6c |unction.|..Cancel|
|00005240| 43 6c 6f 73 65 16 00 16 | 00 1d 21 46 75 6e 63 74 |Close...|..!Funct|
|00005250| 69 6f 6e 20 43 61 6e 63 | 65 6c 43 6c 6f 73 65 28 |ion Canc|elClose(|
|00005260| 29 20 41 73 20 42 6f 6f | 6c 65 61 6e 22 44 69 6d |) As Boo|lean"Dim|
|00005270| 20 61 6c 6c 20 61 73 20 | 42 6f 6f 6c 65 61 6e 2c | all as |Boolean,|
|00005280| 20 61 63 74 20 61 73 20 | 49 6e 74 65 67 65 72 00 | act as |Integer.|
|00005290| 21 69 66 20 43 68 65 63 | 6b 54 6f 43 6c 6f 73 65 |!if Chec|kToClose|
|000052a0| 41 6c 6c 57 69 6e 64 6f | 77 73 20 28 29 20 74 68 |AllWindo|ws () th|
|000052b0| 65 6e 3e 2f 2f 20 74 68 | 69 73 20 6d 65 61 6e 73 |en>// th|is means|
|000052c0| 20 74 68 61 74 20 74 68 | 65 20 75 73 65 72 20 77 | that th|e user w|
|000052d0| 61 6e 74 73 20 74 6f 20 | 63 6c 6f 73 65 20 61 6c |ants to |close al|
|000052e0| 6c 20 77 69 6e 64 6f 77 | 73 20 61 74 20 6f 6e 63 |l window|s at onc|
|000052f0| 65 2f 2f 2f 20 61 6e 64 | 20 73 6f 20 77 65 20 6e |e/// and| so we n|
|00005300| 65 65 64 20 74 6f 20 61 | 62 6f 72 74 20 74 68 65 |eed to a|bort the|
|00005310| 20 63 6c 6f 73 69 6e 67 | 20 68 65 72 65 20 6e 6f | closing| here no|
|00005320| 77 0b 72 65 74 75 72 6e | 20 74 72 75 65 03 65 6e |w.return| true.en|
|00005330| 64 00 21 69 66 20 64 69 | 72 74 79 43 68 65 63 6b |d.!if di|rtyCheck|
|00005340| 2e 56 61 6c 75 65 20 3c | 3e 20 66 61 6c 73 65 20 |.Value <|> false |
|00005350| 74 68 65 6e 92 01 2f 2f | 20 6f 6f 70 73 2c 20 6f |then..//| oops, o|
|00005360| 75 72 20 77 69 6e 64 6f | 77 20 63 6f 6e 74 65 6e |ur windo|w conten|
|00005370| 74 73 20 61 72 65 20 64 | 69 72 74 79 20 2d 20 61 |ts are d|irty - a|
|00005380| 73 6b 20 74 68 65 20 75 | 73 65 72 20 69 66 20 68 |sk the u|ser if h|
|00005390| 65 20 77 61 6e 74 73 20 | 74 6f 20 73 61 76 65 20 |e wants |to save |
|000053a0| 6f 72 20 61 62 6f 72 74 | 37 61 63 74 20 3d 20 28 |or abort|7act = (|
|000053b0| 6e 65 77 20 43 61 6e 63 | 65 6c 43 6c 6f 73 65 44 |new Canc|elCloseD|
|000053c0| 69 61 6c 6f 67 29 2e 41 | 73 6b 55 73 65 72 54 6f |ialog).A|skUserTo|
|000053d0| 53 61 76 65 28 73 65 6c | 66 2e 54 69 74 6c 65 29 |Save(sel|f.Title)|
|000053e0| 0f 69 66 20 61 63 74 20 | 3c 20 30 20 74 68 65 6e |.if act |< 0 then|
|000053f0| 1d 2f 2f 20 74 68 65 20 | 75 73 65 72 20 63 61 6e |.// the |user can|
|00005400| 63 65 6c 6c 65 64 20 2d | 20 61 62 6f 72 74 10 43 |celled -| abort.C|
|00005410| 6c 6f 73 65 43 61 6e 63 | 65 6c 6c 65 64 28 29 0b |loseCanc|elled().|
|00005420| 72 65 74 75 72 6e 20 74 | 72 75 65 03 65 6e 64 0f |return t|rue.end.|
|00005430| 69 66 20 61 63 74 20 3d | 20 31 20 74 68 65 6e 32 |if act =| 1 then2|
|00005440| 2f 2f 20 74 68 65 20 75 | 73 65 72 20 77 61 6e 74 |// the u|ser want|
|00005450| 73 20 74 6f 20 73 61 76 | 65 20 74 68 65 20 28 69 |s to sav|e the (i|
|00005460| 6d 61 67 69 6e 61 72 79 | 29 20 64 6f 63 75 6d 65 |maginary|) docume|
|00005470| 6e 74 1a 69 66 20 6e 6f | 74 20 53 61 76 65 44 6f |nt.if no|t SaveDo|
|00005480| 63 75 6d 65 6e 74 28 29 | 20 74 68 65 6e 1d 2f 2f |cument()| then.//|
|00005490| 20 74 68 65 20 75 73 65 | 72 20 63 61 6e 63 65 6c | the use|r cancel|
|000054a0| 6c 65 64 20 2d 20 61 62 | 6f 72 74 10 43 6c 6f 73 |led - ab|ort.Clos|
|000054b0| 65 43 61 6e 63 65 6c 6c | 65 64 28 29 0b 72 65 74 |eCancell|ed().ret|
|000054c0| 75 72 6e 20 74 72 75 65 | 03 65 6e 64 03 65 6e 64 |urn true|.end.end|
|000054d0| 03 65 6e 64 00 0c 72 65 | 74 75 72 6e 20 66 61 6c |.end..re|turn fal|
|000054e0| 73 65 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 0f |se.End F|unction.|
|000054f0| 45 6e 61 62 6c 65 4d 65 | 6e 75 49 74 65 6d 73 01 |EnableMe|nuItems.|
|00005500| 00 01 00 03 15 53 75 62 | 20 45 6e 61 62 6c 65 4d |.....Sub| EnableM|
|00005510| 65 6e 75 49 74 65 6d 73 | 28 29 00 07 45 6e 64 20 |enuItems|()..End |
|00005520| 53 75 62 05 43 6c 6f 73 | 65 01 00 01 00 03 0b 53 |Sub.Clos|e......S|
|00005530| 75 62 20 43 6c 6f 73 65 | 28 29 1d 41 70 70 2e 54 |ub Close|().App.T|
|00005540| 68 65 57 69 6e 64 6f 77 | 4d 65 6e 75 2e 52 65 6d |heWindow|Menu.Rem|
|00005550| 6f 76 65 20 28 6d 65 29 | 07 45 6e 64 20 53 75 62 |ove (me)|.End Sub|
|00005560| 04 4f 70 65 6e 01 00 01 | 00 03 0a 53 75 62 20 4f |.Open...|...Sub O|
|00005570| 70 65 6e 28 29 00 07 45 | 6e 64 20 53 75 62 00 00 |pen()..E|nd Sub..|
|00005580| 07 07 00 00 b4 01 0a 50 | 75 73 68 42 75 74 74 6f |.......P|ushButto|
|00005590| 6e 00 00 00 00 01 06 41 | 63 74 69 6f 6e 0e 12 0e |n......A|ction...|
|000055a0| 12 10 0c 53 75 62 20 41 | 63 74 69 6f 6e 28 29 32 |...Sub A|ction()2|
|000055b0| 2f 2f 20 74 68 69 73 20 | 69 73 20 6a 75 73 74 20 |// this |is just |
|000055c0| 73 6f 6d 65 20 74 65 73 | 74 20 63 6f 64 65 20 74 |some tes|t code t|
|000055d0| 6f 20 73 65 65 20 77 68 | 61 74 20 68 61 70 70 65 |o see wh|at happe|
|000055e0| 6e 73 28 2f 2f 20 74 6f | 20 74 68 65 20 64 79 6e |ns(// to| the dyn|
|000055f0| 61 6d 69 63 61 6c 6c 79 | 20 63 72 65 61 74 65 64 |amically| created|
|00005600| 20 6d 65 6e 75 20 69 74 | 65 6d 73 29 44 69 6d 20 | menu it|ems)Dim |
|00005610| 69 20 61 73 20 49 6e 74 | 65 67 65 72 2c 20 6d 20 |i as Int|eger, m |
|00005620| 61 73 20 57 69 6e 64 6f | 77 4c 69 73 74 4d 65 6e |as Windo|wListMen|
|00005630| 75 49 74 65 6d 0f 44 69 | 6d 20 73 20 61 73 20 53 |uItem.Di|m s as S|
|00005640| 74 72 69 6e 67 0e 66 6f | 72 20 69 20 3d 20 30 20 |tring.fo|r i = 0 |
|00005650| 74 6f 20 39 15 6d 20 3d | 20 54 68 65 44 79 6e 61 |to 9.m =| TheDyna|
|00005660| 6d 69 63 4d 65 6e 75 28 | 69 29 1f 73 20 3d 20 73 |micMenu(|i).s = s|
|00005670| 20 2b 20 63 68 72 28 31 | 33 29 20 2b 20 53 74 72 | + chr(1|3) + Str|
|00005680| 28 69 29 20 2b 20 22 3a | 20 22 0f 69 66 20 6d 20 |(i) + ":| ".if m |
|00005690| 3d 20 6e 69 6c 20 74 68 | 65 6e 0f 73 20 3d 20 73 |= nil th|en.s = s|
|000056a0| 20 2b 20 22 3c 6e 69 6c | 3e 22 04 65 6c 73 65 a3 | + "<nil|>".else.|
|000056b0| 01 73 20 3d 20 73 20 2b | 20 22 d2 22 2b 6d 2e 74 |.s = s +| "."+m.t|
|000056c0| 65 78 74 2b 22 d3 2c 20 | 69 6e 64 65 78 3a 20 22 |ext+"., |index: "|
|000056d0| 2b 53 74 72 28 6d 2e 69 | 6e 64 65 78 29 2b 22 2c |+Str(m.i|ndex)+",|
|000056e0| 20 73 6f 72 74 49 64 78 | 3a 20 22 2b 53 74 72 28 | sortIdx|: "+Str(|
|000056f0| 6d 2e 73 6f 72 74 49 64 | 78 29 2b 22 2c 20 63 6d |m.sortId|x)+", cm|
|00005700| 64 4b 65 79 3a 20 22 2b | 6d 2e 43 6f 6d 6d 61 6e |dKey: "+|m.Comman|
|00005710| 64 4b 65 79 03 65 6e 64 | 04 6e 65 78 74 12 74 68 |dKey.end|.next.th|
|00005720| 65 54 78 74 2e 63 61 70 | 74 69 6f 6e 20 3d 20 73 |eTxt.cap|tion = s|
|00005730| 07 45 6e 64 20 53 75 62 | 00 00 07 00 00 b4 01 0a |.End Sub|........|
|00005740| 53 74 61 74 69 63 54 65 | 78 74 00 00 00 00 01 09 |StaticTe|xt......|
|00005750| 4d 6f 75 73 65 4d 6f 76 | 65 01 00 01 00 03 29 53 |MouseMov|e.....)S|
|00005760| 75 62 20 4d 6f 75 73 65 | 4d 6f 76 65 28 58 20 41 |ub Mouse|Move(X A|
|00005770| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00005780| 49 6e 74 65 67 65 72 29 | 00 07 45 6e 64 20 53 75 |Integer)|..End Su|
|00005790| 62 00 00 07 00 00 b4 01 | 0a 50 75 73 68 42 75 74 |b.......|.PushBut|
|000057a0| 74 6f 6e 00 00 00 00 01 | 06 41 63 74 69 6f 6e 04 |ton.....|.Action.|
|000057b0| 20 04 20 06 0c 53 75 62 | 20 41 63 74 69 6f 6e 28 | . ..Sub| Action(|
|000057c0| 29 2e 2f 2f 20 72 65 6e | 61 6d 65 20 6f 75 72 20 |).// ren|ame our |
|000057d0| 77 69 6e 64 6f 77 20 61 | 6e 64 20 68 61 76 65 20 |window a|nd have |
|000057e0| 74 68 65 20 6d 65 6e 75 | 20 75 70 64 61 74 65 64 |the menu| updated|
|000057f0| 1b 41 70 70 2e 57 64 77 | 4e 75 6d 20 3d 20 41 70 |.App.Wdw|Num = Ap|
|00005800| 70 2e 57 64 77 4e 75 6d | 20 2b 20 31 18 54 69 74 |p.WdwNum| + 1.Tit|
|00005810| 6c 65 20 3d 20 53 74 72 | 20 28 41 70 70 2e 57 64 |le = Str| (App.Wd|
|00005820| 77 4e 75 6d 29 25 41 70 | 70 2e 54 68 65 57 69 6e |wNum)%Ap|p.TheWin|
|00005830| 64 6f 77 4d 65 6e 75 2e | 55 70 64 61 74 65 28 73 |dowMenu.|Update(s|
|00005840| 65 6c 66 2c 20 54 69 74 | 6c 65 29 07 45 6e 64 20 |elf, Tit|le).End |
|00005850| 53 75 62 00 00 07 00 00 | 80 02 08 43 68 65 63 6b |Sub.....|...Check|
|00005860| 42 6f 78 00 00 00 00 00 | 00 00 07 00 00 b4 01 0a |Box.....|........|
|00005870| 53 74 61 74 69 63 54 65 | 78 74 00 00 00 00 01 09 |StaticTe|xt......|
|00005880| 4d 6f 75 73 65 4d 6f 76 | 65 01 00 01 00 03 29 53 |MouseMov|e.....)S|
|00005890| 75 62 20 4d 6f 75 73 65 | 4d 6f 76 65 28 58 20 41 |ub Mouse|Move(X A|
|000058a0| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|000058b0| 49 6e 74 65 67 65 72 29 | 00 07 45 6e 64 20 53 75 |Integer)|..End Su|
|000058c0| 62 00 00 07 00 00 b4 01 | 0a 53 74 61 74 69 63 54 |b.......|.StaticT|
|000058d0| 65 78 74 00 00 00 00 00 | 00 00 07 00 00 b4 01 0a |ext.....|........|
|000058e0| 53 74 61 74 69 63 54 65 | 78 74 00 00 00 00 00 00 |StaticTe|xt......|
|000058f0| 00 07 0a 50 75 73 68 42 | 75 74 74 6f 6e 17 04 4e |...PushB|utton..N|
|00005900| 61 6d 65 0a 6c 69 73 74 | 42 75 74 74 6f 6e 05 49 |ame.list|Button.I|
|00005910| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|00005920| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|00005930| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00005940| 66 74 03 31 38 36 03 54 | 6f 70 03 32 35 38 05 57 |ft.186.T|op.258.W|
|00005950| 69 64 74 68 02 37 37 06 | 48 65 69 67 68 74 02 32 |idth.77.|Height.2|
|00005960| 30 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 13 44 |0.Balloo|nHelp..D|
|00005970| 69 73 61 62 6c 65 64 42 | 61 6c 6c 6f 6f 6e 48 65 |isabledB|alloonHe|
|00005980| 6c 70 00 08 4c 6f 63 6b | 4c 65 66 74 05 46 61 6c |lp..Lock|Left.Fal|
|00005990| 73 65 07 4c 6f 63 6b 54 | 6f 70 05 46 61 6c 73 65 |se.LockT|op.False|
|000059a0| 09 4c 6f 63 6b 52 69 67 | 68 74 04 54 72 75 65 0a |.LockRig|ht.True.|
|000059b0| 4c 6f 63 6b 42 6f 74 74 | 6f 6d 04 54 72 75 65 08 |LockBott|om.True.|
|000059c0| 54 65 78 74 46 6f 6e 74 | 06 53 79 73 74 65 6d 08 |TextFont|.System.|
|000059d0| 54 65 78 74 53 69 7a 65 | 02 31 32 04 42 6f 6c 64 |TextSize|.12.Bold|
|000059e0| 05 46 61 6c 73 65 06 49 | 74 61 6c 69 63 05 46 61 |.False.I|talic.Fa|
|000059f0| 6c 73 65 09 55 6e 64 65 | 72 6c 69 6e 65 05 46 61 |lse.Unde|rline.Fa|
|00005a00| 6c 73 65 07 43 61 70 74 | 69 6f 6e 0a 4c 69 73 74 |lse.Capt|ion.List|
|00005a10| 20 4d 65 6e 75 73 07 44 | 65 66 61 75 6c 74 04 54 | Menus.D|efault.T|
|00005a20| 72 75 65 06 43 61 6e 63 | 65 6c 05 46 61 6c 73 65 |rue.Canc|el.False|
|00005a30| 07 45 6e 61 62 6c 65 64 | 04 54 72 75 65 00 0a 53 |.Enabled|.True..S|
|00005a40| 74 61 74 69 63 54 65 78 | 74 17 04 4e 61 6d 65 06 |taticTex|t..Name.|
|00005a50| 74 68 65 54 78 74 05 49 | 6e 64 65 78 0b 2d 32 31 |theTxt.I|ndex.-21|
|00005a60| 34 37 34 38 33 36 34 38 | 0d 54 61 62 50 61 6e 65 |47483648|.TabPane|
|00005a70| 6c 49 6e 64 65 78 01 30 | 07 56 69 73 69 62 6c 65 |lIndex.0|.Visible|
|00005a80| 04 54 72 75 65 04 4c 65 | 66 74 02 31 33 03 54 6f |.True.Le|ft.13.To|
|00005a90| 70 02 31 30 05 57 69 64 | 74 68 03 32 35 30 06 48 |p.10.Wid|th.250.H|
|00005aa0| 65 69 67 68 74 03 31 39 | 39 0b 42 61 6c 6c 6f 6f |eight.19|9.Balloo|
|00005ab0| 6e 48 65 6c 70 00 13 44 | 69 73 61 62 6c 65 64 42 |nHelp..D|isabledB|
|00005ac0| 61 6c 6c 6f 6f 6e 48 65 | 6c 70 00 08 4c 6f 63 6b |alloonHe|lp..Lock|
|00005ad0| 4c 65 66 74 04 54 72 75 | 65 07 4c 6f 63 6b 54 6f |Left.Tru|e.LockTo|
|00005ae0| 70 04 54 72 75 65 09 4c | 6f 63 6b 52 69 67 68 74 |p.True.L|ockRight|
|00005af0| 04 54 72 75 65 0a 4c 6f | 63 6b 42 6f 74 74 6f 6d |.True.Lo|ckBottom|
|00005b00| 04 54 72 75 65 08 54 65 | 78 74 46 6f 6e 74 06 53 |.True.Te|xtFont.S|
|00005b10| 79 73 74 65 6d 08 54 65 | 78 74 53 69 7a 65 02 31 |ystem.Te|xtSize.1|
|00005b20| 32 04 42 6f 6c 64 05 46 | 61 6c 73 65 06 49 74 61 |2.Bold.F|alse.Ita|
|00005b30| 6c 69 63 05 46 61 6c 73 | 65 09 55 6e 64 65 72 6c |lic.Fals|e.Underl|
|00005b40| 69 6e 65 05 46 61 6c 73 | 65 04 54 65 78 74 26 49 |ine.Fals|e.Text&I|
|00005b50| 6d 61 67 69 6e 65 20 79 | 6f 75 72 20 64 6f 63 75 |magine y|our docu|
|00005b60| 6d 65 6e 74 20 63 6f 6e | 74 65 6e 74 73 20 68 65 |ment con|tents he|
|00005b70| 72 65 2e 2e 2e 09 54 65 | 78 74 41 6c 69 67 6e 01 |re....Te|xtAlign.|
|00005b80| 30 09 54 65 78 74 43 6f | 6c 6f 72 01 30 09 4d 75 |0.TextCo|lor.0.Mu|
|00005b90| 6c 74 69 4c 69 6e 65 04 | 54 72 75 65 01 0a 50 75 |ltiLine.|True..Pu|
|00005ba0| 73 68 42 75 74 74 6f 6e | 17 04 4e 61 6d 65 0c 72 |shButton|..Name.r|
|00005bb0| 65 6e 61 6d 65 42 75 74 | 74 6f 6e 05 49 6e 64 65 |enameBut|ton.Inde|
|00005bc0| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|00005bd0| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|00005be0| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 02 |sible.Tr|ue.Left.|
|00005bf0| 31 33 03 54 6f 70 03 32 | 35 38 05 57 69 64 74 68 |13.Top.2|58.Width|
|00005c00| 02 36 30 06 48 65 69 67 | 68 74 02 32 30 0b 42 61 |.60.Heig|ht.20.Ba|
|00005c10| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|00005c20| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|00005c30| 4c 6f 63 6b 4c 65 66 74 | 05 46 61 6c 73 65 07 4c |LockLeft|.False.L|
|00005c40| 6f 63 6b 54 6f 70 05 46 | 61 6c 73 65 09 4c 6f 63 |ockTop.F|alse.Loc|
|00005c50| 6b 52 69 67 68 74 05 46 | 61 6c 73 65 0a 4c 6f 63 |kRight.F|alse.Loc|
|00005c60| 6b 42 6f 74 74 6f 6d 04 | 54 72 75 65 08 54 65 78 |kBottom.|True.Tex|
|00005c70| 74 46 6f 6e 74 06 53 79 | 73 74 65 6d 08 54 65 78 |tFont.Sy|stem.Tex|
|00005c80| 74 53 69 7a 65 02 31 32 | 04 42 6f 6c 64 05 46 61 |tSize.12|.Bold.Fa|
|00005c90| 6c 73 65 06 49 74 61 6c | 69 63 05 46 61 6c 73 65 |lse.Ital|ic.False|
|00005ca0| 09 55 6e 64 65 72 6c 69 | 6e 65 05 46 61 6c 73 65 |.Underli|ne.False|
|00005cb0| 07 43 61 70 74 69 6f 6e | 06 52 65 6e 61 6d 65 07 |.Caption|.Rename.|
|00005cc0| 44 65 66 61 75 6c 74 05 | 46 61 6c 73 65 06 43 61 |Default.|False.Ca|
|00005cd0| 6e 63 65 6c 05 46 61 6c | 73 65 07 45 6e 61 62 6c |ncel.Fal|se.Enabl|
|00005ce0| 65 64 04 54 72 75 65 02 | 08 43 68 65 63 6b 42 6f |ed.True.|.CheckBo|
|00005cf0| 78 16 04 4e 61 6d 65 0a | 64 69 72 74 79 43 68 65 |x..Name.|dirtyChe|
|00005d00| 63 6b 05 49 6e 64 65 78 | 0b 2d 32 31 34 37 34 38 |ck.Index|.-214748|
|00005d10| 33 36 34 38 0d 54 61 62 | 50 61 6e 65 6c 49 6e 64 |3648.Tab|PanelInd|
|00005d20| 65 78 01 30 07 56 69 73 | 69 62 6c 65 04 54 72 75 |ex.0.Vis|ible.Tru|
|00005d30| 65 04 4c 65 66 74 02 38 | 38 03 54 6f 70 03 32 35 |e.Left.8|8.Top.25|
|00005d40| 38 05 57 69 64 74 68 02 | 35 33 06 48 65 69 67 68 |8.Width.|53.Heigh|
|00005d50| 74 02 32 30 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |t.20.Bal|loonHelp|
|00005d60| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|00005d70| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 05 |nHelp..L|ockLeft.|
|00005d80| 46 61 6c 73 65 07 4c 6f | 63 6b 54 6f 70 05 46 61 |False.Lo|ckTop.Fa|
|00005d90| 6c 73 65 09 4c 6f 63 6b | 52 69 67 68 74 05 46 61 |lse.Lock|Right.Fa|
|00005da0| 6c 73 65 0a 4c 6f 63 6b | 42 6f 74 74 6f 6d 04 54 |lse.Lock|Bottom.T|
|00005db0| 72 75 65 08 54 65 78 74 | 46 6f 6e 74 06 53 79 73 |rue.Text|Font.Sys|
|00005dc0| 74 65 6d 08 54 65 78 74 | 53 69 7a 65 02 31 32 04 |tem.Text|Size.12.|
|00005dd0| 42 6f 6c 64 05 46 61 6c | 73 65 06 49 74 61 6c 69 |Bold.Fal|se.Itali|
|00005de0| 63 05 46 61 6c 73 65 09 | 55 6e 64 65 72 6c 69 6e |c.False.|Underlin|
|00005df0| 65 05 46 61 6c 73 65 07 | 43 61 70 74 69 6f 6e 05 |e.False.|Caption.|
|00005e00| 64 69 72 74 79 05 56 61 | 6c 75 65 05 46 61 6c 73 |dirty.Va|lue.Fals|
|00005e10| 65 07 45 6e 61 62 6c 65 | 64 04 54 72 75 65 03 0a |e.Enable|d.True..|
|00005e20| 53 74 61 74 69 63 54 65 | 78 74 17 04 4e 61 6d 65 |StaticTe|xt..Name|
|00005e30| 0b 53 74 61 74 69 63 54 | 65 78 74 31 05 49 6e 64 |.StaticT|ext1.Ind|
|00005e40| 65 78 0b 2d 32 31 34 37 | 34 38 33 36 34 38 0d 54 |ex.-2147|483648.T|
|00005e50| 61 62 50 61 6e 65 6c 49 | 6e 64 65 78 01 30 07 56 |abPanelI|ndex.0.V|
|00005e60| 69 73 69 62 6c 65 04 54 | 72 75 65 04 4c 65 66 74 |isible.T|rue.Left|
|00005e70| 02 31 33 03 54 6f 70 03 | 32 31 34 05 57 69 64 74 |.13.Top.|214.Widt|
|00005e80| 68 03 31 36 32 06 48 65 | 69 67 68 74 02 31 32 0b |h.162.He|ight.12.|
|00005e90| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 13 44 69 73 |BalloonH|elp..Dis|
|00005ea0| 61 62 6c 65 64 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |abledBal|loonHelp|
|00005eb0| 00 08 4c 6f 63 6b 4c 65 | 66 74 05 46 61 6c 73 65 |..LockLe|ft.False|
|00005ec0| 07 4c 6f 63 6b 54 6f 70 | 05 46 61 6c 73 65 09 4c |.LockTop|.False.L|
|00005ed0| 6f 63 6b 52 69 67 68 74 | 05 46 61 6c 73 65 0a 4c |ockRight|.False.L|
|00005ee0| 6f 63 6b 42 6f 74 74 6f | 6d 04 54 72 75 65 08 54 |ockBotto|m.True.T|
|00005ef0| 65 78 74 46 6f 6e 74 06 | 47 65 6e 65 76 61 08 54 |extFont.|Geneva.T|
|00005f00| 65 78 74 53 69 7a 65 01 | 39 04 42 6f 6c 64 05 46 |extSize.|9.Bold.F|
|00005f10| 61 6c 73 65 06 49 74 61 | 6c 69 63 05 46 61 6c 73 |alse.Ita|lic.Fals|
|00005f20| 65 09 55 6e 64 65 72 6c | 69 6e 65 05 46 61 6c 73 |e.Underl|ine.Fals|
|00005f30| 65 04 54 65 78 74 21 3c | 52 65 6e 61 6d 65 3e 20 |e.Text!<|Rename> |
|00005f40| 63 68 61 6e 67 65 73 20 | 74 68 65 20 77 69 6e 64 |changes |the wind|
|00005f50| 6f 77 20 74 69 74 6c 65 | 09 54 65 78 74 41 6c 69 |ow title|.TextAli|
|00005f60| 67 6e 01 30 09 54 65 78 | 74 43 6f 6c 6f 72 01 30 |gn.0.Tex|tColor.0|
|00005f70| 09 4d 75 6c 74 69 4c 69 | 6e 65 05 46 61 6c 73 65 |.MultiLi|ne.False|
|00005f80| 04 0a 53 74 61 74 69 63 | 54 65 78 74 17 04 4e 61 |..Static|Text..Na|
|00005f90| 6d 65 0b 53 74 61 74 69 | 63 54 65 78 74 32 05 49 |me.Stati|cText2.I|
|00005fa0| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|00005fb0| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|00005fc0| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00005fd0| 66 74 02 31 33 03 54 6f | 70 03 32 32 36 05 57 69 |ft.13.To|p.226.Wi|
|00005fe0| 64 74 68 03 31 38 30 06 | 48 65 69 67 68 74 02 31 |dth.180.|Height.1|
|00005ff0| 32 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 13 44 |2.Balloo|nHelp..D|
|00006000| 69 73 61 62 6c 65 64 42 | 61 6c 6c 6f 6f 6e 48 65 |isabledB|alloonHe|
|00006010| 6c 70 00 08 4c 6f 63 6b | 4c 65 66 74 05 46 61 6c |lp..Lock|Left.Fal|
|00006020| 73 65 07 4c 6f 63 6b 54 | 6f 70 05 46 61 6c 73 65 |se.LockT|op.False|
|00006030| 09 4c 6f 63 6b 52 69 67 | 68 74 05 46 61 6c 73 65 |.LockRig|ht.False|
|00006040| 0a 4c 6f 63 6b 42 6f 74 | 74 6f 6d 04 54 72 75 65 |.LockBot|tom.True|
|00006050| 08 54 65 78 74 46 6f 6e | 74 06 47 65 6e 65 76 61 |.TextFon|t.Geneva|
|00006060| 08 54 65 78 74 53 69 7a | 65 01 39 04 42 6f 6c 64 |.TextSiz|e.9.Bold|
|00006070| 05 46 61 6c 73 65 06 49 | 74 61 6c 69 63 05 46 61 |.False.I|talic.Fa|
|00006080| 6c 73 65 09 55 6e 64 65 | 72 6c 69 6e 65 05 46 61 |lse.Unde|rline.Fa|
|00006090| 6c 73 65 04 54 65 78 74 | 24 3c 64 69 72 74 79 3e |lse.Text|$<dirty>|
|000060a0| 20 73 69 6d 75 6c 61 74 | 65 73 20 61 20 63 68 61 | simulat|es a cha|
|000060b0| 6e 67 65 64 20 64 6f 63 | 75 6d 65 6e 74 09 54 65 |nged doc|ument.Te|
|000060c0| 78 74 41 6c 69 67 6e 01 | 30 09 54 65 78 74 43 6f |xtAlign.|0.TextCo|
|000060d0| 6c 6f 72 01 30 09 4d 75 | 6c 74 69 4c 69 6e 65 05 |lor.0.Mu|ltiLine.|
|000060e0| 46 61 6c 73 65 05 0a 53 | 74 61 74 69 63 54 65 78 |False..S|taticTex|
|000060f0| 74 17 04 4e 61 6d 65 0b | 53 74 61 74 69 63 54 65 |t..Name.|StaticTe|
|00006100| 78 74 33 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |xt3.Inde|x.-21474|
|00006110| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|00006120| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|00006130| 75 65 04 4c 65 66 74 02 | 31 33 03 54 6f 70 03 32 |ue.Left.|13.Top.2|
|00006140| 33 38 05 57 69 64 74 68 | 03 32 33 39 06 48 65 69 |38.Width|.239.Hei|
|00006150| 67 68 74 02 31 32 0b 42 | 61 6c 6c 6f 6f 6e 48 65 |ght.12.B|alloonHe|
|00006160| 6c 70 00 13 44 69 73 61 | 62 6c 65 64 42 61 6c 6c |lp..Disa|bledBall|
|00006170| 6f 6f 6e 48 65 6c 70 00 | 08 4c 6f 63 6b 4c 65 66 |oonHelp.|.LockLef|
|00006180| 74 05 46 61 6c 73 65 07 | 4c 6f 63 6b 54 6f 70 05 |t.False.|LockTop.|
|00006190| 46 61 6c 73 65 09 4c 6f | 63 6b 52 69 67 68 74 05 |False.Lo|ckRight.|
|000061a0| 46 61 6c 73 65 0a 4c 6f | 63 6b 42 6f 74 74 6f 6d |False.Lo|ckBottom|
|000061b0| 04 54 72 75 65 08 54 65 | 78 74 46 6f 6e 74 06 47 |.True.Te|xtFont.G|
|000061c0| 65 6e 65 76 61 08 54 65 | 78 74 53 69 7a 65 01 39 |eneva.Te|xtSize.9|
|000061d0| 04 42 6f 6c 64 05 46 61 | 6c 73 65 06 49 74 61 6c |.Bold.Fa|lse.Ital|
|000061e0| 69 63 05 46 61 6c 73 65 | 09 55 6e 64 65 72 6c 69 |ic.False|.Underli|
|000061f0| 6e 65 05 46 61 6c 73 65 | 04 54 65 78 74 33 3c 4c |ne.False|.Text3<L|
|00006200| 69 73 74 20 4d 65 6e 75 | 73 3e 20 64 6f 65 73 20 |ist Menu|s> does |
|00006210| 74 68 65 20 73 61 6d 65 | 20 61 73 20 69 6e 20 74 |the same| as in t|
|00006220| 68 65 20 66 6c 6f 61 74 | 65 72 20 77 69 6e 64 6f |he float|er windo|
|00006230| 77 09 54 65 78 74 41 6c | 69 67 6e 01 30 09 54 65 |w.TextAl|ign.0.Te|
|00006240| 78 74 43 6f 6c 6f 72 01 | 30 09 4d 75 6c 74 69 4c |xtColor.|0.MultiL|
|00006250| 69 6e 65 05 46 61 6c 73 | 65 06 00 11 41 04 56 69 |ine.Fals|e...A.Vi|
|00006260| 65 77 0f 4d 65 6e 75 4c | 69 73 74 46 6c 6f 61 74 |ew.MenuL|istFloat|
|00006270| 65 72 04 8f 06 86 02 12 | 04 4e 61 6d 65 0f 4d 65 |er......|.Name.Me|
|00006280| 6e 75 4c 69 73 74 46 6c | 6f 61 74 65 72 05 46 72 |nuListFl|oater.Fr|
|00006290| 61 6d 65 01 33 0c 48 61 | 73 42 61 63 6b 43 6f 6c |ame.3.Ha|sBackCol|
|000062a0| 6f 72 05 46 61 6c 73 65 | 09 42 61 63 6b 43 6f 6c |or.False|.BackCol|
|000062b0| 6f 72 08 31 36 37 37 37 | 32 31 35 08 42 61 63 6b |or.16777|215.Back|
|000062c0| 64 72 6f 70 01 30 05 54 | 69 74 6c 65 0d 4c 69 73 |drop.0.T|itle.Lis|
|000062d0| 74 20 6f 66 20 4d 65 6e | 75 73 07 56 69 73 69 62 |t of Men|us.Visib|
|000062e0| 6c 65 04 54 72 75 65 08 | 43 6c 6f 73 65 42 6f 78 |le.True.|CloseBox|
|000062f0| 05 46 61 6c 73 65 08 47 | 72 6f 77 49 63 6f 6e 05 |.False.G|rowIcon.|
|00006300| 46 61 6c 73 65 08 5a 6f | 6f 6d 49 63 6f 6e 05 46 |False.Zo|omIcon.F|
|00006310| 61 6c 73 65 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |alse.Bal|loonHelp|
|00006320| 00 09 50 6c 61 63 65 6d | 65 6e 74 01 30 05 57 69 |..Placem|ent.0.Wi|
|00006330| 64 74 68 03 32 39 36 06 | 48 65 69 67 68 74 03 32 |dth.296.|Height.2|
|00006340| 34 30 08 4d 69 6e 57 69 | 64 74 68 02 36 34 09 4d |40.MinWi|dth.64.M|
|00006350| 69 6e 48 65 69 67 68 74 | 02 36 34 08 4d 61 78 57 |inHeight|.64.MaxW|
|00006360| 69 64 74 68 05 33 32 30 | 30 30 09 4d 61 78 48 65 |idth.320|00.MaxHe|
|00006370| 69 67 68 74 05 33 32 30 | 30 30 07 00 0f 4d 65 6e |ight.320|00...Men|
|00006380| 75 4c 69 73 74 46 6c 6f | 61 74 65 72 ac 01 06 44 |uListFlo|ater...D|
|00006390| 69 61 6c 6f 67 00 00 00 | 00 01 04 4f 70 65 6e 04 |ialog...|...Open.|
|000063a0| 00 04 00 06 0a 53 75 62 | 20 4f 70 65 6e 28 29 38 |.....Sub| Open()8|
|000063b0| 2f 2f 20 70 6c 61 63 65 | 20 66 6c 6f 61 74 69 6e |// place| floatin|
|000063c0| 67 20 77 69 6e 64 6f 77 | 20 61 74 20 72 69 67 68 |g window| at righ|
|000063d0| 74 20 65 6e 64 20 6f 66 | 20 74 68 65 20 6d 61 69 |t end of| the mai|
|000063e0| 6e 20 73 63 72 65 65 6e | 0f 44 69 6d 20 73 20 61 |n screen|.Dim s a|
|000063f0| 73 20 53 63 72 65 65 6e | 0e 73 20 3d 20 53 63 72 |s Screen|.s = Scr|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.